Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As _
      System.IO.Ports.SerialDataReceivedEventArgs) Handles _
      SerialPort1.DataReceived
 
        s = SerialPort1.ReadTo(Chr(13))
 
        Invoke(Empfang)
 
        'Prüfen ob das gewünschte Empfangen wurde, wenn ja:
        sendeBefehl2()
 
 
    End Sub