The program below show the receive function. When i swap the tag to the reader, the reader will receive the data and show the tad id to the monitor. But when i RUN this program, the data didn't come out
Please have me to check the code below, and give me a idea to solve it. THK

Option Explicit

Private Sub MSComm1_OnComm()
Dim tRECEIVED As String

If MSComm1.CommEvent = comEvReceive Then
tRECEIVED = MSComm1.Input
Label2.Caption = tRECEIVED
Label3.Caption = "Detected"
Else
Label3.Caption = "Not detect"
End If

End Sub

Private Sub Form_Load()
Label1.Caption = "Attach an RFID Tag Reader"
Label2.Caption = ""
Label3.Caption = "Not detect"
MSComm1.PortOpen = True
End Sub