Private Sub Btn_Zuordnung_Einlesen_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles Btn_Zuordnung_Einlesen.Click
 
        Dim file As New System.IO.StreamReader( _
          "D:\Zuordnung\Stoffsammlung\umsatz.txt")
        Dim oneLine As String = file.ReadLine
        MessageBox.Show(oneLine)
        file.Close()
 
        Dim words As String
        words = oneLine
        Dim Split As String() = words.Split(New [Char]() {";"c})
 
        Dim s As String
        For Each s In Split
                       MessageBox.Show(s)
        Next s
    End Sub

    Private Sub MI_Zuordnung_Oeffnen_Click(ByVal sender As System.Object, ByVal _
      e As System.EventArgs) Handles MI_Zuordnung_Oeffnen.Click
 
        Dim mydialog As New OpenFileDialog
        mydialog.Filter = "Textdateien (*.txt)|*.txt|Alle Dateien (*.*)|*.*"
        mydialog.Title = "Bitte Umsatz.txt auswählen ...."
        mydialog.InitialDirectory = "D:\Zuordnung\Stoffsammlung\"
        If mydialog.ShowDialog() = DialogResult.OK Then
            If MessageBox.Show("Datei: " & mydialog.FileName & " verarbeiten?", _
              "Verarbeitung", MessageBoxButtons.YesNo) = DialogResult.Yes Then
                StatBar_Zuordnung.Text = mydialog.FileName
                Btn_Zuordnung_Einlesen.PerformClick()
                StatBar_Zuordnung.Refresh()
             End If
 
        End If
        mydialog.Dispose()
 
    End Sub