Вывести на экран матрицу с заданным с клавиатуры значением строк и столбцов - VB

Private Sub CommandButton1_Click()
m = InputBox("Введите количество столбцов матрицы")
If m > 10 Then
MsgBox "Количество столбцов больше 10 не обрабатываю", 48, "Ошибка!"
GoTo metka
End If
N = InputBox("Введите количество строк")
If N > 10 Then
25
MsgBox " Количество строк больше 10 не обрабатываю", 48, "Ошибка!"
GoTo metka
End If
For I = 1 To m
For j = 1 To N
Randomize
matr(I, j) = Int(10 * Rnd)
Next j
Next I
Worksheets("Матрица").Cells(1, 1).Value = "Матрица"
For I = 1 To m
For j = 1 To N
Worksheets("Матрица").Cells(I + 1, j).Value = matr(I, j)
Next j
Next I
metka:
End Sub