Prova a racchiudere l'istruzione ReadLine() tra un blocco try catch, cercando l'exception TimeoutException.
codice:
       Try
            Dim message As String = COM1.ReadLine()
        Catch ex As TimeoutException
            'GESTIONE ERRORE
        End Try