Læse fra serielport

Prøv at kigge på det her spm:

http://www.eksperten.dk/spm/46270

.:Berg:.

Private Sub Form_Load()
Dim massage, Titel, Default, valg, Fejl
igen:
message = \"Vælg hvilken comport der er tilsluttet\"
Titel = \"TEST PROGRAM\"
Default = 1
valg = InputBox(message, Titel, Default)
If (valg > 4) Then
Igen1:
Beep
Fejl = MsgBox(\"Fejl i valg af Comport\", vbExclamation, \"Fejl i valg af comport\")
GoTo igen
End If

If valg = 1 Then
MSComm1.CommPort = 1                    \'Valg af comport
MSComm1.Settings = \"9600,N,8,1\"        \'Opsætning af comport\"
On Error GoTo Igen1
MSComm1.PortOpen = True                \'Åbner comport
MSComm1.InputLen = 0                    \'Retrieve all available data.
End If

If valg = 2 Then
MSComm1.CommPort = 2                    \'Valg af comport
MSComm1.Settings = \"9600,N,8,1\"        \'Opsætning af comport
On Error GoTo Igen1
MSComm1.PortOpen = True                \'Åbner comport
MSComm1.InputLen = 0                    \'Retrieve all available data.
End If

If valg = 3 Then
MSComm1.CommPort = 3                    \'Valg af comport
MSComm1.Settings = \"9600,N,8,1\"        \'Opsætning af comport
On Error GoTo Igen1
MSComm1.PortOpen = True                \'Åbner comport
MSComm1.InputLen = 0                    \'Retrieve all available data.
End If

If valg = 0 Then
GoTo Igen1
End If

Label2.Caption = valg

End Sub

Private Sub Timer1_Timer()
tegn = MSComm1.Input
Label3.Caption = Label3.Caption & tegn
tegn = Label3.Caption
end sub