Отсортировать по возрастанию элементы массива удовлетворяющие условию - VB

Private Sub Command1_Click()
str = "До сортировки: " & Chr(13)
'добавляем вопрос
If MsgBox("Ввести массив вручную?", vbOKCancel + vbQuestion, "Application") = vbOK Then
    'если нажали "ОК"
    For i = 0 To 20
        a(i) = InputBox("Введите элемент а(" & i & ")")
        str = str & a(i) & " "
    Next i
Else
    'если нажали "Cancel"
    For i = 0 To 20
        a(i) = Fix(Rnd(1) * 100)
        str = str & a(i) & " "
    Next i
End If
 
 
 
str = str & Chr(13) & "После сортировки: " & Chr(13)
Call Sort
For i = 0 To 20
    str = str & a(i) & " "
Next i
MsgBox str
End Sub
 
 
Sub Sort()
Dim j
For i = 0 To 98
For j = i + 1 To 99
If a(j) < a(i) Then
If a(j) > -10 Then
a% = a(i): a(i) = a(j): a(j) = a
End If
Next j
Next i
For i = 0 To 99
List2.AddItem B(i)
Next i
End Sub