Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim f2 As New Form2
        f2.EqualText = TextBox1.Text
        f2.ComboBox1.Items.Add("Fehler 1")
        f2.ComboBox1.Items.Add("Fehler 2")
        f2.ComboBox1.Items.Add("Fehler 3")
        f2.ComboBox1.SelectedIndex = 0
        f2.ShowDialog()
        TextBox1.Text = ""
        TextBox1.Focus()
    End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button3.Click
        Dim fs As New FileStream("\My Documents\IH\DAT.txt", FileMode.Append)
        Dim sw As New StreamWriter(fs)
 
        If TextBox2.Text <> mEqualText Then
            sw.Write(mEqualText & "," & DateAndTime.Now.ToString & "," & _
              TextBox2.Text & "," & DateAndTime.Now.ToString & "," & _
              ComboBox1.SelectedItem.ToString & vbCrLf)
            sw.Close()
            MsgBox("Barcodes nicht identisch! Bitte neu einscannen.", _
              MsgBoxStyle.Critical, "Hinweis!")
            TextBox2.Text = ""
            TextBox2.Focus()
        Else
            sw.Write(mEqualText & "," & DateAndTime.Now.ToString & "," & _
              ComboBox1.SelectedItem.ToString & vbCrLf)
            sw.Close()
            Me.Close()
        End If
 
    End Sub