Построить матрицу 3*3, чтобы все числа перемножались друг на друга - VB

Function GroupPorn() As Integer()
Dim X(1 To 3, 1 To 3) As Integer
      For i% = 1 To 3
          For j% = 1 To 3
               X(i%, j%) = i% * j%
          Next j%
      Next i%
      GroupPorn = X
End Function
 
Sub Test()
Dim Z() As Integer
    Z = GroupPorn
    Debug.Print Z(1, 1)
    Debug.Print Z(2, 2)
    Debug.Print Z(3, 3)
End Sub