Private Sub ReadSerialPort(ByVal sp As SerialPort)
 
        Try
           '...
        Catch ex As System.TimeoutException
            Application.DoEvents()
            ReadSerialPort(sp)     'Darf ich hier loopen? Verursacht das 
            ' eventuell die Probs?
        '...
        End Try
 
    End Sub