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

Формулировка задачи:

Снова я) На этот раз метод шифрования у меня другой - Сцитал. По сути при шифровании просто транспонируем матрицу, только у меня снова не получается и я снова не могу понять почему. Надеюсь, кто-то в этом разбирается и сможет мне помочь) Заранее благодарна! Вот код:

Option Explicit
Dim A() As String
Dim H As String 'исходный текст
Dim m As Long 'количество строк матрицы
Dim n As Long 'колицество столбцов матрицы
Dim lentext As Long 'число знаков в тексте
Dim i As Long
Dim j As Long
Dim buf As String
 
Private Sub Command1_Click()
H = Text1.text
'исходный текст
m = Text2.text
'количество строк матрицы
lentext = Len(H)
n = Abs((lentext - 1) \ m) + 1 'количество столбцов
 
ReDim A(1 To m, 1 To n)
f = ""
For i = 1 To m
 For j = i To n
 buf = A(i, j)
 A(i, j) = A(j, i)
 A(j, i) = buf
 Next j
Next i
f = f & buf
Text3.text = f
End Sub

Решение задачи: «Транспонирование матрицы»

textual
                            Листинг программы 
                        
                            B = Temp