Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        MsgBox("Der Barcode wurde eingescannt", MsgBoxStyle.Information, "Info")
    End Sub
 
    Public Class Form1
 
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
          System.EventArgs) Handles Button1.Click
            Dim Path As String = "\Barcodes\"
            Dim dt As String
            dt = Format(Now, "(M-d-yyyy _ H-mm-ss)")
            Dim FileName As String = "Barcode Scan 1 " & dt & ".txt"
            Dim sw As StreamWriter = File.CreateText(Path & FileName)
            sw.WriteLine("Barcode #1234abcd (gescannt am " + Now + ")")
            sw.Flush()
            sw.Close()
            SendFile(Path, FileName)
        End Sub
 
    End Class
 
End Class

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        'Sache1
        Dim Path As String = "\Barcodes\"
        Dim dt As String = Format(Now, "(M-d-yyyy _ H-mm-ss)")
        Dim FileName As String = "Barcode Scan 1 " & dt & ".txt"
        Dim sw As StreamWriter = File.CreateText(Path & FileName)
        sw.WriteLine("Barcode #1234abcd (gescannt am " & Now & ")")
        sw.Flush()
        sw.Close()
        SendFile(Path, FileName)
 
        'Sache2
        MessageBox.Show("Der Barcode wurde eingescannt", "Info", _
          MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub
 
End Class