Public Sub SerialPort_DataReceived(ByVal sender As Object, ByVal e As _
  System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort.DataReceived
 
        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.WriteLine(Programm)
                Me.Invoke(TextboxAktualisieren)
 
            Catch ex As Exception
                MessageBox.Show("Ein Übertragungsfehler ist aufgetreten.", _
                  "Fehler", MessageBoxButtons.OK)
            End Try
        Next i
    End Sub