Reading Data from Serial Port

Here is the code I have so far....unfortunately I don't have anything to test this code with (nothing in serial port). I've put the MSComm object into the form...so I guess my question now is...to the best of your knowledge, will this work for the above described situation?




Private Sub cmdClose_Click()

MSComm1.PortOpen = False
lblStatus.Caption = "Closed"
lblStatus.ForeColor = &HFF&

End Sub

Private Sub cmdOpen_Click()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
lblStatus.Caption = "Open"
lblStatus.ForeColor = &HC000&

End Sub


Private Sub cmdReceive_Click()
Dim Data As Variant
Do
DoEvents
Loop Until MSComm1.InBufferCount > 0
Data = MSComm1.Input
Open "C:\Data.txt" For Append As #1
Write #1, Data
Close #1
End Sub

Ooops the Receive button code is wrong it should read the following (I think?):

Private Sub cmdReceive_Click()
Dim Data As Variant

Do

Data = MSComm1.Input
Open "C:\Data.txt" For Append As #1
Write #1, Data
Close #1

Loop Until MSComm1.InBufferCount = 0 'As long as there is data in the buffer OR Returns 0 if user clicks "Close Port"

End Sub

It seems to be correct.

Can you test it with a null modem and a laptop?