Проверьте программный код на ошибку - VB

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

Вставить после каждой четной строки первую строку вот программный код

Private Sub Command2_Click()
 
n = Val(Text1)
m = Val(Text2)
    For l = 1 To n
   For j = 1 To m
     tmp = MSFlexGrid1.TextMatrix(l, 1)
     If j Mod 2 = 0 Then
     j1 = j
  
            MSFlexGrid1.TextMatrix(l, j1 + 1) = tmp

         End If
         
 Next j
      Next l
      
      End Sub

Решение задачи: «Проверьте программный код на ошибку»

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

                            Private Sub Command1_Click()
n = 6
m = 6
If n Mod 2 = 0 Then t = n / 2 Else t = Fix(n / 2) + 1
For i = 1 To n + t
    For j = 1 To m
    Next j
    If i Mod 2 = 0 Then
            i = i + 1
            For k = 1 To m
                MSFlexGrid1.TextMatrix(i, k) = MSFlexGrid1.TextMatrix(1, k)
            Next k
            Print
    End If
Next i
End Sub
                        