Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles buteibÖffnen.Click
        Dim file As String
        Dim Inhalt As String
        Dim objDateimacher As StreamWriter
        Dim objDateiLeser As StreamReader
 
        lblInfo.Text = "Datei auswählen"
        Do
            If DateiÖffnen.ShowDialog() = DialogResult.Cancel Then
                Exit Sub
            End If
 
        Loop Until DateiÖffnen.FileName <> ""
 
        file = DateiÖffnen.FileName
        lblInfo.Text = "Lese Datei"
        objDateiLeser = New StreamReader(file)
        Inhalt = objDateiLeser.ReadToEnd()
        objDateiLeser.Close()
        objDateiLeser = Nothing
 
        lblInfo.Text = "Ersetze Texte"
        bar.Visible = True
        Inhalt = Inhalt.Replace("bit = ", "")
        bar.Value = 20
        Inhalt = Inhalt.Replace(";aus;", ";0;")
        bar.Value = 40
        Inhalt = Inhalt.Replace(";ein;", ";1;")
        bar.Value = 60
        Inhalt = Inhalt.Replace("$00", "0")
        bar.Value = 80
        Inhalt = Inhalt.Replace("$01", "1")
        bar.Value = 100
        lblInfo.Text = "Fertig"
        bar.Visible = False
        lblInfo.Text = "Speichere Datei"
        objDateimacher = New StreamWriter(file, False)
        objDateimacher.Write(Inhalt)
        objDateimacher.Close()
        objDateimacher = Nothing
        lblInfo.Text = "Alles fertig"
 
 
    End Sub