Retrieve & Obtain RFID Tag with VB6

hello there..

can anybody help me to do my task here, i want to connecting my RFID reader and VB6, so i can obtain and retrieve the rfid tag in message box on vb6. and this is my code so far, but i dont know why it doesnt work, plz help me.

Private Sub MSComm1_OnComm()
Dim data As String
data = MSComm1.Input
Text5.Text = Text5.Text & data
Text8.Text = Text8.Text & data
If cari = True Then
If Text7.Text = Text8.Text Then
MsgBox "buku ditemukan", , "save"
cari = False
Command5.Enabled = True
End If
End If

anyway i use simple RF ID called id-12 and use pasive tag.
thnx beforehand.