Dim ArrayTest As New xDimArray(intAnzahlDatensaetze, 8)

 
ArrayTest.Dimension(1) = EinlesenDerDatei("C:\Datei.dat")

 
Public Class xDimArray
    Dim Dimension As Short = Nothing
    Dim Spalte As Short = Nothing
    Dim arrayDatensatz(,) As String
 
    Public Sub New(ByVal intDimension  As Short, _
                   ByVal intSpalte As Short)
        Dim NewArray(nZeile, nSpalte) As String
        Me.Dimension  = intDimension  
        Me.Spalte = intSpalte 
        Me.arrayDatensatz = NewArray
    End Sub
 
    Public Sub AddValue(ByVal Wert As String, _
                   ByVal Zeile As Short, _
                   ByVal Spalte As Short)
        arrayDatensatz(Zeile, Spalte) = Wert
    End Sub
End Class