Поменять местами элементы матрицы симметрично побочной диагонали - VB

Private Sub Command1_Click()
Dim n, i, s, j  As Integer
Dim a() As Integer
Dim b() As Double
Cls
Print "ÏåðâîГ*Г*Г·Г*ëüГ*Г*Гї Г¬Г*òðèöГ*:"
      ReDim a(1 To 10, 1 To 10)
      For i = 1 To 10
                  For j = 1 To 10
                        a(i, j) = Rnd * 8 + 1
                        Print a(i, j);
                  Next j
                        Print
      Next i
Print
Print "Ïîëó÷åГ*Г*Г*Гї Г¬Г*òðèöГ*"
n = 9
s = 1
      ReDim b(1 To 10, 1 To 10)
      For i = 1 To 9
                  For j = 1 To n
                  b(i, j) = a(11 - i, 11 - j)
                  b(11 - i, 11 - j) = a(i, j)
                  
                  Next j
                  b(i, 11 - i) = a(i, 11 - i)
      n = n - 1
      Next i
      For i = 1 To 10
                  For j = 1 To 10
                        Print b(i, j);
                  Next j
                        Print
      Next i
End Sub