Zitat:

als erstes kommt fehlermeldung bei CLS: CLEAR

Public inbuf(800) As Integer
Public outbuf(8) As Integer
 
On Error Goto BadCom
    With MSComm1
        .Settings = "19200,n,8,1"
        .PortOpen = False
        .CommPort = 2 ' <--- Com-Port 2, musste vielleicht auf 1 setzen !!!
        .PortOpen = True
    End With

kein plan

    outbuf(0) = 1
    outbuf(1) = 1
    outbuf(2) = 0
    SendFrame MSComm1

Public Sub SendFrame(oCOM As Object)
 
    Dim sSend As String
 
    outbuf(3) = outbuf(0) Xor outbuf(1) Xor outbuf(2)
    sSend = Chr$(outbuf(0)) + Chr$(outbuf(1)) + Chr$(outbuf(2)) + Chr$(outbuf( _
      3))
 
    oCOM.Output = sSend
 
End Sub

    Dim r As Integer
    Dim delay As Long
 
    ' --- SWITCH RELAIS ---
    ' Do
        r = 1
        Do
            outbuf(0) = 3
            outbuf(1) = 1
            outbuf(2) = r
            SendFrame MSComm1
            For delay = 1 To 1000000: Next ' <-- Dient wohl als Pause?
            r = r * 2
            If r >= 256 Then Exit Do
        Loop

inbuf(bz) = Asc(MSComm1.Input)

*greetz*
Tim
.
http://www.DotNetWorld.de