Dim q(1)
 
Function txt(ByRef a())
 Dim i As Integer
 For i = 0 To ArrayFunction1.ArrayAnzahl(a)
  MsgBox a(i)
 Next i
End Function
 
Private Sub Command1_Click()
 txt (q)
End Sub
 
Private Sub Form_Load()
 q(0) = "ghfdhzg"
 q(1) = "hjnhbgf"
End Sub