Public Sub AktivierKanal(ByVal Channel As Integer)
 
        Dim Antwort As String = String.Empty, B As Byte
        If _StatKanäleBool(Channel - 1) Then Exit Sub 
 
        _StatKanäleBool(Channel - 1) = True
        B = BoolToByte(_StatKanäleBool)
 
Try
            With PortDCon
                .Write("$" & _AdrHex2 & "5" & B.ToString("X2") & vbCr)
                Antwort = .ReadTo(ChrW(13))
                If Antwort.Contains("!") Then
                    'Erfolgreiches setzen des Kanals
                Else
                    Throw New ApplicationException("Fehler beim ausschalten des" & _
                      "Kanals aufgetreten!")
 
                End If
            End With
        Catch ex As TimeoutException
            Throw New ApplicationException ("Timeout Fehlermeldung")
        Catch ex As Exception
            Throw New ApplicationException ("Allgemeine Fehlermeldung")
        End Try
end sub

Ahnungsloser ahnungsloser...