If OPENCOM("COM1:") = 0 Then 'Zugriff auf Com1 verweigert
        If OPENCOM("COM2:") = 0 Then 'Zugriff auf Com2 verweigert
            If OPENCOM("COM3:") = 0 Then 'Zugriff auf Com3 verweigert
                If OPENCOM("COM4:") = 0 Then 'Zugriff auf Com4 verweigert
                    MsgBox "Kein ComPort vorhanden", vbCritical
                    CLOSECOM
                Else
                    Label4.Caption = "OK"
                    Label4.ForeColor = &HC000&
                End If
            Else
                Label3.Caption = "OK"
                Label3.ForeColor = &HC000&
            End If
        Else
            Label2.Caption = "OK"
            Label2.ForeColor = &HC000&
        End If
    Else
        Label1.Caption = "OK"
        Label1.ForeColor = &HC000&
    End If