Изменить массив так, чтобы сначала выводились 1,затем 0, и потом 2 - VB

Option Explicit
Private Sub Form_Click()
Cls
Randomize
 
Dim A(25) As Byte, i As Integer, j As Integer, k As Integer
 
For i = LBound(A) To UBound(A)
    A(i) = Round(Rnd * 2)
    Print A(i);
Next
 
Print
For i = LBound(A) To UBound(A) Step 3
    For j = i To UBound(A) Step 2
        For k = j To UBound(A)
            A(k) = 0
                A(j) = 2
                    A(i) = 1
If i + 3 = UBound(A) Then Exit For
Next
    Next
        Next
        
For i = LBound(A) To UBound(A)
    Print A(i);
Next
 
End Sub