Вставить перед всеми строками, первый элемент которых делится на 3, строку из нулей - VB

Dim n, m, mas(6, 6), mas_help(), mas_help2(), mas_help3(), j_min(), t, imax As Integer
Private Sub Command1_Click()
Open File1.Path + "\" + File1.FileName For Input As #1
Input #1, n
For i = 0 To n - 1
For j = 0 To n - 1
Input #1, mas(i, j)
Next
Next
Close #1
   MSFlexGrid1.Rows = n + 1
   MSFlexGrid1.Cols = n + 1
    MSFlexGrid1.Row = 0
   For j = 0 To n
    MSFlexGrid1.Col = j
    MSFlexGrid1.ColWidth(j) = 400
    MSFlexGrid1.Text = j
   Next j
   MSFlexGrid1.Col = 0
   MSFlexGrid1.ColWidth(0) = 200
   For i = 0 To n
    MSFlexGrid1.Row = i
    MSFlexGrid1.Text = i
   Next i
 For i = 0 To n - 1
  MSFlexGrid1.Row = i + 1
   For j = 0 To n - 1
    MSFlexGrid1.Col = j + 1
    MSFlexGrid1.Text = mas(i, j)
    Next j
 Next i
 End Sub

Private Sub Command4_Click()
k = 0
ReDim mas_help(10, 10)
ReDim mas_help2(10, 10)
For i = 0 To n - 1
For j = 0 To n - 1
mas_help(i, j) = mas(i, j)
mas_help2(i, j) = mas(i, j)
Next
Next
k = 0
imax = i
For i = 0 To n - 1
If mas(i, 0) Mod (3) = 0 Then k = k + 1
Next
For i = 0 To n - 1
If mas(i, 0) Mod (3) = 0 Then
Next
MSFlexGrid3.Rows = n + 1 + k
MSFlexGrid3.Cols = n + 1
MSFlexGrid3.Row = 0
For j = 0 To n
MSFlexGrid3.Col = j
MSFlexGrid3.ColWidth(j) = 400
MSFlexGrid3.Text = j
Next j
MSFlexGrid3.Col = 0
MSFlexGrid3.ColWidth(0) = 200
For i = 0 To n + k
MSFlexGrid3.Row = i
MSFlexGrid3.Text = i
Next i
For i = 0 To n - 1 + k
MSFlexGrid3.Row = i + 1
For j = 0 To n - 1
MSFlexGrid3.Col = j + 1
MSFlexGrid3.Text = mas(i, j)
Next j
Next i
End Sub