В матрице переставить местами столбцы с максимальным и минимальными элементами - VB

Private Sub Command1_Click()
Cls
Dim a&(10, 10), mi&, ma&, n&, m&, s&
Randomize
For i = 1 To 10
For j = 1 To 10
 a(i, j) = Rnd(1) * 89 \ 1 + 10
 Print a(i, j); "  ";
Next j
Print
Next i
 
 
mi = a(1, 1): ma = a(1, 1)
n = 1: m = 1
For i = 1 To 10
For j = 1 To 10
 If a(i, j) < mi Then mi = a(i, j): n = j
 If a(i, j) > ma Then ma = a(i, j): m = j
Next j
Next i
 
If n = m Then MsgBox "perestanovka ne trebueza": Exit Sub
 
For i = 1 To 10
 s = a(i, n): a(i, n) = a(i, m): a(i, m) = s
Next i
 
Print "perestanovka"
For i = 1 To 10
For j = 1 To 10
 If j = m Then ForeColor = vbRed
 If j = n Then ForeColor = vbBlue
 If a(i, j) = mi Then ForeColor = vbGreen
 If a(i, j) = ma Then ForeColor = vbGreen
 Print a(i, j); "  ";
 ForeColor = vbBlack
Next j
Print
Next i
 
End Sub