[color=blue]Private Sub[/color] Unterprog1 ()
[color=blue]Dim[/color] arFeld() As String 
arFeld=PrepareArray(arFeld()) [color=green]' Das Feld soll gefüllt 
' werden
[color=blue]if UBound([/color]arFeld)[color=blue])[/color] ...        _
  [color=green]' hier ist das Feld arFeld endlich gefüllt !
[color=blue]End Sub[/color]
 
[color=blue]Private Function[/color] PrepareArray (arF1() [color=blue]As _
  String[/color]) [color=blue] As Variant[/color]
[color=green]'Anstelle von Private Sub ...
 
[color=blue]ReDim[/color] arF1(10,10,10)
[color=red]PrepareArray=arF1[/color]    [color=green]'Explizit das Array 
'  als Rückgabewert definieren
[color=blue]End Function[/color]