Dim arf As New Float[] Dim f As Float Dim s As String For Each s In Split("1.2,1.4,1.6,1.10,1.16,1.20,1.35,1.5,1.3,1.1") arf.add(s) Next arf.Sort For Each f In arf Print f Next Regards, Fabien Bodard