помогите пожалуйста!!!!!!!

""в двумерный массив вставить строку из нулей после строки с введенным номером!""


Option Explicit
Sub tema()
Dim intStol As String
Dim intStr As String
Dim intRol() As String
Dim strMas As String
Dim strArray As String
Dim intI As Integer
Dim intJ As Integer
Dim N As String

intStr = InputBox("введите кол-во строк")
If intStr = "" Then
MsgBox ("вы не ввели кол-во строк")
intStr = InputBox("введите кол-во строк")
End If

intStol = InputBox("введите кол-во столбцов")
If intStol = "" Then
MsgBox ("вы не ввели кол-во столбцов")
intStol = InputBox("введите кол-во столбцов")
End If

ReDim intRol(1 To intStr + 1, 1 To intStol)
For intI = 1 To intStr 'цикл по перебору столбцов
For intJ = 1 To intStol 'цикл по перебору строк
intRol(intI, intJ) = InputBox("введите элемент " + "( " + CStr(intI) + ", " + CStr(intJ) + ")")
Next intJ
Next intI
strArray = strArray + Chr(13)
For intI = 1 To intStr
strArray = strArray + Chr(13)
For intJ = 1 To intStol
strArray = strArray & " " & intRol(intI, intJ)
Next intJ
Next intI
MsgBox ("массив: " & strArray + Chr(13) & " ")
N = InputBox("введите № строки ")
If (N = "") Or (N > intStol) Or (N < 1) Then
MsgBox ("вы не ввели номер строки. либо такой строки не существует ")
N = InputBox("введите № строки ")
End If
If intStr > (N + 1) Then intStr = intStr + 1
For intI = intStr + 1 To (N + 1) Step -1 'цикл по перебору строк
For intJ = 1 To intStol 'цикл по перебору столбцов

If intI = N + 1 Then
intRol(intI, intJ) = "0"



End If
Next intJ
Next intI

strMas = strMas + Chr(13)
For intI = 1 To intStr + 1
strMas = strMas + Chr(13)
For intJ = 1 To intStol
strMas = strMas & intRol(intI, intJ) & " "
Next intJ
Next intI
MsgBox ("массив: " & strArray + strMas + Chr(13) & " ")
End Sub