.
CommPort = 1
.Settings = "9600,n,8,1"
.PortOpen = True
.InputMode = comInputModeBinary
MSComm1.RThreshold = 1
MSComm1.SThreshold = 1
MSComm1.InputLen = 1<pre><code>InputLen  ist auf 1 gesetzt, da außer den Long _
  Werten auch einzelne Bytes empfangen werden müssen.
Den enpfangenen Wert versuche ich folgendermaßen zusammenzusetzen:
 
<pre><code>While MSComm1.InBufferCount < 4
Wend
Mega1 = MSComm1.Input
Mega2 = MSComm1.Input
Mega3 = MSComm1.Input
Mega4 = MSComm1.Input
b0 = Mega1(0)
b1 = Mega2(0)
b2 = Mega3(0)
b3 = Mega4(0)
Result_x = b0 + (b1 * 256) + (b2 * 65536) + (b3 * 16777216)