RS232

Sub OPENCOM Lib "RSAPI.DLL" (A As String)
Declare 

Sub SENDBYTE Lib "RSAPI.DLL" (d As Integer)
Declare 

Sub CLOSECOM Lib "RSAPI.DLL" ()

Sub MAIN()
Dim zähler
Dim d As Integer
OPENCOM "COM1,9600,N,8,1"
SENDBYTE 89
CLOSECOM Next zähler
End Sub


empfänger:

Declare 

Sub OPENCOM Lib "RSAPI.DLL" (A As String)
Declare 

Sub TIMEOUT Lib "RSAPI.DLL" (ms As Integer)
Declare 

Function READBYTE Lib "RSAPI.DLL" () As Integer
Declare 

Sub CLOSECOM Lib "RSAPI.DLL" ()

Sub MAIN()
Dim zähler As Integer
OPENCOM "COM1:9600,N,8,1"
Worksheets("Tabelle1").Cells(zähler, 1) = READBYTE
CLOSECOM
End Sub


wieso funktioniert das soo nicht ?