Вывод массива на экран

Option Explicit
Option Base 1
Sub massiv()
'Дан массив А(N,N). Напишите программу, которая прибавляла бы
'к каждому элементу данной строки элемент принадлежащей этой
'строке и главной диагонали
 
Dim mas_1() As Integer
Dim a As String
Dim N As Integer
Dim i As Integer
Dim j As Integer
Dim elm As Integer
 
a = InputBox("Введите размерность массива:") 'Ф-я, выводящая окно ввода с сообщением
If a <= 0 Then
  MsgBox ("Размерность массива на может равняться нулю, или быть отрицательной!")
  Else
    If IsNumeric(a) = False Then 'Ф-я, проверяющая введены ли цифры, или символы.
    MsgBox ("Разрешенно вводить только цифры!") 'Окно сообщений
    Else
    N = CInt(a) 'Ф-я, переводящая значение переменнов в тип Integer
    ReDim mas_1(N, N) 'Ф-я, изменяющая размер динамического массива на заданную величину
    End If
End If
 
For i = 1 To N
  For j = 1 To N
  mas_1(i, j) = InputBox("Введите элементы массива:")
  Next j
Next i
 
For i = 1 To N
 elm = mas_1(i, i)
  For j = 1 To N
  mas_1(i, j) = mas_1(i, j) + elm
  Next j
Next i
 
End Sub

s=а(1,1) & ... & а(1,n) _
& chr(13) & ... _
а(m,1) & ... & а(m,n)

prompt = ""
For i = 1 To UBound(mas_1)
  For j = 1 To UBound(mas_1)
   prompt = prompt & mas_1(i, j) & Chr(13)
  Next j
Next i
MsgBox prompt

prompt = ""
For i = 1 To UBound(mas_1,1)
  For j = 1 To UBound(mas_1,2)
   prompt = prompt & mas_1(i, j)
  Next j
  prompt = prompt & Chr(13)
Next i
MsgBox prompt

prompt = ""
For i = 1 To UBound(mas_1,1)
  For j = 1 To UBound(mas_1,2)
   prompt = prompt & mas_1(i, j) & " " 
  Next j
  prompt = prompt & Chr(13)
Next i
MsgBox prompt

Sub Procedure_1()
 
    Dim myArray(1 To 2)
    
    MsgBox myArray
 
End Sub