主题：请问能否直接读取来自COM口的十进制ASCII码？

Dim cnt As Integer = Ports("COM3").BytesToRead

If cnt > 0 Then '缓冲区是否有数据

    Dim Val(cnt - 1) As Byte

    Ports("COM3").Read(val,0,cnt)

    For i As Integer = 0 To val.Length - 1

        val(i) = Byte.Parse(val(i), System.Globalization.NumberStyles.HexNumber)

    Next

    Dim bstr As String =  val

    e.Form.Controls("TextBox5").value = bstr

End If

小弟比较拙，没明白里面的用法？我想怎么才能把接收到的数据传送到TextBox5控件呢？请明示！

希望返回的也是 02 21 26 23 30 0A 34 31 33 31 36 37 37 39 32 39 24 31 38 33 0A 03 

但是返回的却是明文！也就是

 !&#0

4131677929$183



如果能做到不返回明文而是返回ASCII呢？