How to pass a 2D array by reference?

[Pastor]

'I need to know the correct syntax for passing
'BYREF a 2 dimentional array defined with a
'TYPE to a subroutine. I need to pass it by
'reference rather than define it as public.
'Thanks.
'

Option Explicit
Type Information
    sSex As String
    sName  As String
    sAddress As String
End Type
Private Sub Initialize_Array()
Dim aiPeople(2, 2) As Information
aiPeople(1, 1).sSex = "Male"
aiPeople(1, 1).sName = "John"
aiPeople(1, 1).sAddress = "Apartment 101"
'This next line does not work;
'The error message that I get is:
' "ByRef type argument mismatch"
Display_Information ((aiPeople))
End Sub
Private Sub Display_Information(ByRef aiCouple As Information)
Dim iRow As Integer
Dim iCol As Integer
For iRow = 1 To 2
    For iCol = 1 To 2
        MsgBox aiCouple(iRow, iCol)
    Next J
Next I
End Sub
'

 

[ZVI]

Try this:

Option Explicit
Type Information
  sSex As String
  sName As String
  sAddress As String
End Type

Private Sub Initialize_Array()
  Dim aiPeople(1 To 2, 1 To 2) As Information
  aiPeople(1, 1).sSex = "Male"
  aiPeople(1, 1).sName = "John"
  aiPeople(1, 1).sAddress = "Apartment 101"
  aiPeople(2, 1).sSex = "Female"
  aiPeople(2, 1).sName = "Helen"
  aiPeople(2, 1).sAddress = "Apartment 100"
  Display_Information aiPeople
End Sub

Private Sub Display_Information(ByRef aiCouple() As Information)
  Dim iRow As Long
  Dim iCol As Long
  For iRow = 1 To 2
    For iCol = 1 To 2
      With aiCouple(iRow, iCol)
        MsgBox .sSex & vbLf & .sName & vbLf & .sAddress
      End With
    Next
  Next
End Sub

 

[Pastor]

Thank You Vladimir!

I'll say a pray for you that God will bless you for your kindness to me.


God Bless.

 

[ZVI]

Thank You Vladimir!

I'll say a pray for you that God will bless you for your kindness to me.


God Bless.

Good to know that it helped, thank you for feedback and warm words!
Kind Regards,
Vlad