Dim vEncoding As Encoding = Encoding.ASCII Dim S ="211" Dim vBuffer() AsByte= vEncoding.GetBytes(S) Dim vBuilder As StringBuilder vBuilder =New StringBuilder(S.ToString.Length *2) For i AsInteger=0To vBuffer.Length -1 vBuilder.Append(vBuffer(i).ToString("x2")) Next MsgBox(vBuilder.ToString())
得到结果是:323131
从16进制ASCII到字符则只需
dim s as integer=&H46
msgbox(chr(s))
得到的结果是:F