Dim zeile(,) As String
 
        ReDim zeile(1, 1)
 
        zeile(1, 1) = "test"
 
        ReDim Preserve zeile(2, 1)   '--> ArrayTypemismatchexception
 
        ReDim Preserve zeile(1, 2)  'Änderung der letzten Dimension ist zulässig
 
 
        Call TakeArray(zeile)            'Routinenaufruf
 
        Zeile = GetArray                 'Funktionsaufruf
 
 
 
        'Routine mit 2D-Array als Parameter 
         Public Sub TakeArray(ByVal arr(,) As String)
 
         End Sub
 
 
 
         'Funktion mit Rückgabe eines 2D-Array
         Public Function Getarray() As String(,)
 
             Dim x(0, 0) As String
             Return x
 
         End Function