Создать проект заполнения массива А(9,9) индексом столбца - VB

Option Explicit
Dim a() As Double
Dim x As Double, i As Integer, j As Integer
 
Private Sub Command1_Click()
Cls
ReDim a(1 To 9, 1 To 9)
For i = 1 To 9
     For j = 1 To 9
     a(i, j) = j
     Print a(i, j); vbTab;
      Next j
      Print vbLf
Next i
End Sub