Public Function FuellArray() As Variant
  <font color=red>Dim hlpArray As String</font>
  ReDim hlpArray(10) As String
 
  <font color=green>' zum Testen...</font>  
  hlpArray(1) = "Ich"
  hlpArray(2) = "Du"
 
  FuellArray = hlpArray
End Function