Создать двухмерный массив A(N,M), где N =4, M =4 - VB

Option Explicit
Private Sub Command1_Click()
Dim a(1 To 4, 1 To 4) As Double
Dim i As Byte
Dim j As Byte
Dim max As Double
Print "Matrix:"
For j = 1 To 4
  For i = 1 To 4
    a(i, j) = i + j
    Print a(i, j),
  Next i
  Print
Next j
max = a(1, 1)
For i = 1 To 4
  If a(i, i) > max Then max = a(i, i)
Next i
Print "max="; max
End Sub