DIM zeile(0,1) as string
zeile(0,0) = "test"
zeile(0,1) = "test2"
REDIM PRESERVE zeile(1,1)
zeile(1,0) = "test"
zeile(1,1) = "test2"

PRIVATE FUNCTION Tabell as STRING()  <---- geht nicht
PRIVATE FUNCTION Tabell as STRING()() <---- geht nicht

        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

        Dim lst As New List(Of MyDataStruct)
        'Hinzufügen
        lst.Add(New MyDataStruct("test1A", "test1B"))
        lst.Add(New MyDataStruct("test2A", "test2B"))
 
        'Abrufen
        Dim feld00 As String = lst(0).FeldA
 
        'Entfernen
        lst.RemoveAt(0)

    Public Structure MyDataStruct
        Public FeldA As String
        Public FeldB As String
        Public Sub New(ByVal a As String, ByVal b As String)
            Me.FeldA = a
            Me.FeldB = b
        End Sub
    End Structure