[color=blue]Private Sub[/color]   Unterprog1 ()
[color=blue]Dim[/color]  arFeld() [color=blue]As String [/color]
[color=blue]Call [/color]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 wieder leer !
[color=blue]End Sub[/color]
 
[color=blue]Private Sub[/color] PrepareArray ([color=blue]ByRef [/color] arF1() _
  [color=blue]As String[/color])
[color=blue]ReDim[/color] arF1(10,10,10)
arF1(1,0,0)="eins"
...
[color=green]' Das Feld ist wirklich gefüllt!
[color=blue]End Sub[/color]