Prikaz CID-a pomoću mscomm kontrole

Code:

Private Sub Form_Load()
  Dim CommPort As String
  'opcije porta
 MSComm1.CommPort = 4
 MSComm1.Settings = "9600,N,8,1"
 If CommPort <> "" Then MSComm1.CommPort = CommPort
 MSComm1.PortOpen = True
 End Sub

Private Sub Form_Unload(Cancel As Integer)
 'postupak za izlaz
 If MSComm1.PortOpen Then
    MSComm1.PortOpen = False
 End If
 End
End Sub

Private Static Sub MSComm1_OnComm()
Dim Buffer As Variant
  'prikaz podataka sa modema
 If MSComm1.CommEvent = comEvReceive Then
    Buffer = Replace(MSComm1.Input, Chr(13), "")
    Buffer = Replace(Buffer, Chr(10), "")
    GetCallerInfo = (Buffer)
    ShowData Text1, "" & (StrConv(Buffer, vbUnicode))
    Debug.Print Text1, "" & (StrConv(Buffer, vbUnicode))
 End If
 End Sub

Private Static Sub ShowData(Text1 As Control, Data As String)
 'svojstvo prikaza podataka
 Text1.SelText = Data
 Text1.SelStart = Len(Text1.Text)
 End Sub