Private Sub SerialPort_DataReceived(ByVal sender As System.Object, ByVal e _
      As System.IO.Ports.SerialDataReceivedEventArgs) Handles _
      SerialPort.DataReceived
        If SerialPort.ReadLine = "Starte Taschenrechner" Then
            Process.Start("C:\Windows\System32\calc.exe") 'Bei Windows 
            ' programmen wie calc.exe reicht wenn man den Namen des Programms 
            ' angibt in dem Fall:"calc.exe"
        End If
    End Sub