'Deffinition der ArrayList´s in einem Modul
Public holzbildarray As ArrayList = New ArrayList
    Public holznamearray As ArrayList = New ArrayList
    Public holzzusatzarray As ArrayList = New ArrayList
    Public holznummerarray As ArrayList = New ArrayList

'Einlesen der *.dat Datei
While holzreader.Peek > 1
            holzzeile = holzreader.ReadLine
            holztemp = holzzeile.Split("#")
            holzbildarray.Add(holztemp(0))
            holznummerarray.Add(holztemp(1))
            holznummercbo.Items.Add(holztemp(1))
            holznamearray.Add(holztemp(2))
            holzzusatzarray.Add(holztemp(3))
 
        End While
        holzreader.Close()

'Und das zuteilen der Arrays
 If Me.holznummer.Text = holznummerarray(0) Then Me.holzzusatztxt.Text = _
   holzzusatzarray(0) : Me.holznametxt.Text = holznamearray(0) : _
   Me.holzbildbox.Image = Image.FromFile(Application.StartupPath & _
   "\System\Motive\" & holzbildarray(0))
        If Me.holznummer.Text = holznummerarray(1) Then Me.holzzusatztxt.Text = _
        holzzusatzarray(1) : Me.holznametxt.Text = holznamearray(1) : _
        Me.holzbildbox.Image = Image.FromFile(Application.StartupPath & _
        "\System\Motive\" & holzbildarray(1))
        If Me.holznummer.Text = holznummerarray(2) Then Me.holzzusatztxt.Text = _
        holzzusatzarray(2) : Me.holznametxt.Text = holznamearray(2) : _
        Me.holzbildbox.Image = Image.FromFile(Application.StartupPath & _
        "\System\Motive\" & holzbildarray(2))
        If Me.holznummer.Text = holznummerarray(3) Then Me.holzzusatztxt.Text = _
        holzzusatzarray(3) : Me.holznametxt.Text = holznamearray(3) : _
        Me.holzbildbox.Image = Image.FromFile(Application.StartupPath & _
        "\System\Motive\" & holzbildarray(3))