Public Sub SerialPort_DataReceived(ByVal sender As Object, ByVal e As _
      System.IO.Ports.SerialDataReceivedEventArgs) Handles _
      SerialPort.DataReceived
 
        Dim objDateiMacher As System.IO.StreamWriter
        objDateiMacher = New StreamWriter("data.txt")
 
        For i As Int32 = 0 To SerialPort.BytesToRead   ' Alle Bytes einzel 
        ' lesen und anzeigen
            Try
 
                Dim buf As Byte() = {SerialPort.BaseStream.ReadByte}
                Dim enc As New System.Text.ASCIIEncoding()
                Programm = enc.GetString(buf)
                Programm = Programm.Replace(Chr(13), Nothing)
                objDateiMacher.Write(Programm)
 
            Catch ex As Exception
                MessageBox.Show("Ein Übertragungsfehler ist aufgetreten.", _
                  "Fehler", MessageBoxButtons.OK)
 
            End Try
        Next i
 
        objDateiMacher.Close()
 
    End Sub