Dim Daten As ArrayList = New ArrayList
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dateiname = OpenFileDialog1.FileName
            Dim datei As New System.IO.StreamReader(Dateiname)
 
            Do
                Daten.Add(datei.ReadLine)
 
            Loop Until datei.ReadLine = Nothing
 
            datei.Close()
 
End If