如何在vb上顯示單片機傳來的16進製
？？

用VAL函數啊。
Val(string)  ‘返回包含於字符串內的數字，字符串中是一個適當類型的數值。
如果確認string是一個十六進製數字字符，則明確告訴VAL函數：

Dim n As Long
n = VAl("&H" & String)

未知"Text2.Text = n" 中的 n 是什麼。
其實把 rthreshold置為1（每字符處理一次）則可處理任意長度的字串：

Private Sub comm1_OnComm()
Dim s$,s1$

Select Case comm1.CommEvent
 Case comEvReceive
     s = comm1.Input
    '例: 每一字符都更新一次text2.text
         text2.text = text2.text & s
    '或: 如果"bb" 是通訊協議中固定用的的結束符，則可在收到等它出現時再更新text2.text
        s1 = s1 & s
        If Len(s1) > 2 Then
           Iif Right(s1) = "bb" then
               text2.text = s1
               '建立本串接收結束標誌,通知可繼續發送等
               ......
            End If
        End If
End Select

End Sub

搞清楚用ASCII碼表示一個數和用字符串(由"0"-"F"字符組成)表示十六進製數兩種不同概念:
前一種是機器碼,它用一個碼就可表示0-255:  171 = ABh = chr(&HAB)
後一種是用字符串String表示數字,它用兩字符表示0-255: 171 = ABh = Val("&h" & "ab")
字符串的內容被包含在兩引號中.任一字符的的ASCII碼可用Asc()函數返回,如:
n = Asc(Mid("1234AB",5,1)   返回 字串中第5個字符"A"的ASCII碼值: n = 41h = 65
不知你的單片機用的是那種?

機器碼顧名思義隻在機器運算中使用,查ASCII字符表時,你能在字符中理解它所代表的全部碼值嗎,有的碼值根本就不能顯示和打印,如chr(0),chr(32),chr(255).....在文本框顯示的都是空格,無法分辨,這就是為什麼要用兩個十六進製字符來表示一個字節的值的原因了。
要將某一個字節的碼值以兩個十六進製字符表示出來(設Char是待轉換的字節）：
Text2.text = Right("0" &  Hex(Asc(Char)), 2)
轉換流程為：查十進製碼值 -> 十六進製轉換 -> 雙字符定位。
式中用Right()函數是為了保證少於16的碼值也用兩個字符表示
，如：“00”

，“0A”....等。

to ppboy:
一個學習方法：用一個十六進製文件編輯器如UltraEdit-32,新建一個文件並用它編輯，學習領會一下。祝你成功！