Вставить после столбца с заданным номером k (0<= k <=5) столбец из единиц - VB

Option Explicit
Dim a(1 To 4, 1 To 5) As Double
Dim m(1 To 4, 1 To 5) As Double
Dim b As Double
Dim i As Integer
Dim j As Double
Dim r, s As Double
Dim n As Double
Private Sub Command1_Click()
Print "Исходный массив:"
For i = 1 To 4
      For j = 1 To 5
                  r = Round(Rnd, 1)
                  a(i, j) = -30 + 60 * r
If j <> 5 Then
Print ; a(i, j);
 
            Else
 
Print a(i, j);
Print vbLf
 
End If
      Next j
Next i
 
b = InputBox("Введите номер столбца, в котором нужно заменить элементы", "№", 3)
Print "Изменённый массив:"
For i = 1 To 4
a(i, b) = 1
Next i
For i = 1 To 4
      For j = 1 To 5
If j <> 5 Then
Print ; a(i, j);
 
            Else
 
Print a(i, j);
Print vbLf
End If
      Next j
Next i
 
End Sub