Как передавать в аргумент функции массив, и можно ли возвращать его из функции?

Dim arr1(1, 1) As Integer
arr1 = Test1(10)
 
Private Function Test1(x)
   Dim arr2(1, 1) As Integer
   s = x
   For i = 0 to 1
      For j = 0 to 1
         arr2(i, j) = s
         s = s + 1
      Next j
   Next i
   PushBack = Arr2
End Function

Dim arr1(1, 1) As Integer
arr1 = Test1(10)
 
Private Function Test1(x)
   Dim arr2(1, 1) As Integer
   s = x
   For i = 0 to 1
      For j = 0 to 1
         arr2(i, j) = s
         s = s + 1
      Next j
   Next i
   Test1= Arr2
End Function

Dim arr1(1, 1) As Integer
arr1 = Test1 10
 
Private Function Test1(x As Integer) As Integer
   Dim arr2(1, 1) As Integer
   Dim s, i, j As Integer
   s = x
   For i = 0 to 1
      For j = 0 to 1
         arr2(i, j) = s
         s = s + 1
      Next j
   Next i
   Test1= Arr2
End Function

Option Explicit
 
Private Sub Command1_Click()
   Dim arr1(1, 1) As Integer
   arr1 = Test1(1)
End Sub
 
Private Function Test1(ByVal x As Integer) As Integer()
   Dim arr2(1, 1) As Integer
   Dim s As Integer, i As Integer, j As Integer
   s = x
   For i = 0 To 1
      For j = 0 To 1
         arr2(i, j) = s
         s = s + 1
      Next j
   Next i
   Test1 = arr2
End Function

Dim arr1 As Variant
arr1 = Test1(1)

Dim arr1

Option Explicit
Public arr1
 
Private Sub Form_Load()
   arr1 = Test1(1)
End Sub
 
Private Sub Command1_Click()
   Dim i As Integer, j As Integer
   For i = 0 To 1
      For j = 0 To 1
         g.Print arr1(i, j)
      Next j
   Next i
End Sub
 
Private Function Test1(ByVal x As Integer) As Integer()
   Dim arr2(1, 1) As Integer
   Dim s As Integer, i As Integer, j As Integer
   s = x
   For i = 0 To 1
      For j = 0 To 1
         arr2(i, j) = s
         s = s + 1
      Next j
   Next i
   Test1 = arr2
End Function

Private Function Init(ByVal nc As Integer) As Integer()
   ReDim arr(1) As Integer
   ...
   ...
   Init = arr
   ...
   ...
   Init = arr
End Function