สอบถาม เรื่อง Tool MSComm1 ใน vb.net มีรึปล่าวครับ

Private Sub Form_Load()
MSComm1.PortOpen = True
End Sub

Private Sub MSComm1_OnComm()
Dim strinput As String
strinput = MSComm1.Input
Text1.Text = Text1.Text & strinput
strinput = HexIt(strinput)
List1.AddItem strinput
End Sub

Public Function HexIt(stext As String) As String
Dim a As Long
For a = 1 To Len(stext)
HexIt = HexIt & Hex$(Asc(Mid(stext, a, 1))) & Space$(1)
On Error Resume Next
DoEvents
Next a
HexIt = Mid$(HexIt, 1, Len(HexIt) - 1)
End Function