Swissline.exe;1.0;02.08.2004
Startup.exe;;02.08.2004

Dim splitter()() As String
        Dim test As Array
        Dim sr As IO.StreamReader = New IO.StreamReader(target)
        Dim line As String
        Dim filearray() As String
        Do
            line = sr.ReadLine()
            ar.Add(line)
            Application.DoEvents()
        Loop Until line Is Nothing
        ar.ToArray()
        For i = 0 To ar.Count() - 2
 
 
            splitter(i) = Split(ar(i), ";", -1)
            'GlacialList1.Items.Add(ar(i))
            'GlacialList1.Items(i).SubItems(1).Text = ar(0)
            GlacialList1.Items(i).SubItems(0).Text = ar(i)
            MsgBox(ar(i))
        Next
        sr.Close()

splitter(i) = Split(ar(i), ";", -1)

Zusätzliche Informationen: Der Objektverweis wurde nicht auf eine Objektinstanz _
  festgelegt.