Hallo,
Habe den Code leider nicht hier, aber versuche es mal zusammenzukriegen (ist ja nicht so viel).

Declare Function OPENCOM Lib "RSAPI.DLL" (ByVal A$) As Integer
Declare Function CLOSECOM Lib "RSAPI.DLL" ()
Declare Function SENDBYTE Lib "RSAPI.DLL" (ByVal b%) As String
Declare Function READBYTE Lib "RSAPI.DLL" () As Integer



Sub test()

OPENCOM "COM2:28800,N,8,1"

SENDBYTE Asc("r")

x = READBYTE

MsgBox "empfangene Daten: " & x, vbOKOnly

CLOSECOM
End Sub



So, da sind sicher noch etliche Fehler drinnen, aber ich habe leider noch nicht genug Zeit gehabt.. bitte um Nachsicht. Auch weiß ich nicht wann man oben etwas als Sub oder als Function deklarieren muss und wann bei den Prozeduren oben irgendetwas übergeben werden muss.

PS:
So meckert er noch über die MsgBox Zeile: Ungültiger Prozeduraufruf oder ungültiges Argument.

Wie du siehst, ich bin ein ziemlicher Neuling bei VBA, mehr als grobes Verständnis (aber dafür Motivation) bringe ich noch nicht mit. Denke das wird aber noch. Ein kleines Erfolgserlebnis würde schon helfen

M f G
Sebastian