Отсортировать элементы массива расположенные на четных местах,по возрастанию - VB

Option Base 1
Private Sub Command1_Click()
Form1.Cls
Dim b(100)
n = 20
ReDim Mas(n)
For i = 1 To n
Mas(i) = 1 + Int(Rnd * 100)
Print Mas(i);
Next
Print
If i Mod 2 = 0 Then
 a = Mas(i)
   End If
k = k + 1
    b(k) = a
For i = 1 To n
Print b(i);
Next
 
For i = 1 To n - 1
For j = i + 1 To n
If b(i) > b(j) Then
Min = b(i)
b(i) = b(j)
b(i) = Min
End If
Next
Next
For i = 1 To n
Print "÷èñëî"; b(i)
Next
End Sub