Сортировка вещественных чисел в ListBox - VB

Option Explicit
 
Private Sub Command1_Click()
 
Dim A(10) As Single, x As Single, i As Integer, B(10) As String
Dim j As Integer
Randomize
    For i = 1 To 10
    'A(i) = Rnd * 100
    A(i) = Round((Rnd * 100), 2)
    B(i) = Str(Round(A(i), 2))'переписываю в строку Round не работает,сортировка работает как для букв
    List1.AddItem (A(i))
    Next i
        ' Пузырьковая сортировка
For i = 2 To 10
j = 10
    Do While j >= i
    If A(j - 1) > A(j) Then
    x = A(j - 1): A(j - 1) = A(j): A(j) = x
    End If
    j = j - 1
    Loop
Next i
       'результат работы
       For i = 1 To 10
       B(i) = Str(Round(A(i), 2))
       List2.AddItem (A(i))
    
       Next i
            List2.AddItem (-180), 3 'добавил
            List2.RemoveItem (2) 'удалил
            Print List1.ListCount; List2.ListCount; 'размер
               
End Sub