如何在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,新建一个文件并用它编辑，学习领会一下。祝你成功！