مشكلة في سيريال بورت

السلام عليكم

لقد جربت هذا الكود في سيريال بورت ولكن واجهتني مشكلة أنه يظهر في Textbox أحرف وأرقام غير معروفة لاأدري ما السبب أيمكن ان يكون هو في التحويل من Binary إلى Hexdeciaml أرجو إفادتي إن كان هناك كود معين

وشكرا

وهذا هو الكود

Dim Buffer As String

If MSComm1.CommEvent = 2 Then

Buffer = Buffer & MSComm1.Input & Chr(10)

Text1.Text = Buffer

End If