Option Explicit
 
Public Function myFunction(vArray As Variant)
  ReDim vArray(7)
  vArray(0) = "Ich"
  vArray(1) = "bin"
  vArray(2) = "ein"
  vArray(3) = "Array"
  vArray(4) = "mit"
  vArray(5) = "acht"
  vArray(6) = "Elementen"
  vArray(7) = "."
End Function
 
Private Sub Command1_Click()
  Dim myArray() As String
 
  myFunction myArray()
 
  <font color=green>' Test</font>
  Dim i As Integer
  Dim sText As String
  For i = 0 To UBound(myArray)
    sText = sText & myArray(i) & " "
  Next i
 
  MsgBox sText
End Sub