Транспонирование матрицы - VB (63057)

Private Sub Command1_Click()
Dim a(), b()
n = Val(InputBox("Kol-vo strok"))
m = Val(InputBox("kol-vo stolbcov"))
ReDim a(1 To n, 1 To m)
ReDim b(1 To m, 1 To n)
For i = 1 To n
For j = 1 To m
a(i, j) = InputBox(i & j)
Next j
Next i
For i = 1 To n
For j = 1 To m
b(j, i) = a(i, j)
Next j
Next i
sss = ""
For i = 1 To m
For j = 1 To n
sss = sss & b(i, j)
Next j
sss = sss & Chr(13)
Next i
MsgBox sss
End Sub