vb中将二进制转换为汉字解决方案

vb中将二进制转换为汉字
vb中怎么将二进制（比如说01001110110000000100111001001000）转换为汉字，并显示出来？请给出稍微详细一点的代码。谢谢

[解决办法]

VB code

Private Sub Form_Load()S = "1101011011010000"D = BIN_to_HEX(S)MsgBox Chr(Val("&h" & D))End Sub' 用途：将二进制转化为十六进制Public Function BIN_to_HEX(ByVal Bin As String) As StringDim i As LongDim H As StringIf Len(Bin) Mod 4 <> 0 ThenBin = String(4 - Len(Bin) Mod 4, "0") & BinEnd IfFor i = 1 To Len(Bin) Step 4Select Case Mid(Bin, i, 4)Case "0000": H = H & "0"Case "0001": H = H & "1"Case "0010": H = H & "2"Case "0011": H = H & "3"Case "0100": H = H & "4"Case "0101": H = H & "5"Case "0110": H = H & "6"Case "0111": H = H & "7"Case "1000": H = H & "8"Case "1001": H = H & "9"Case "1010": H = H & "A"Case "1011": H = H & "B"Case "1100": H = H & "C"Case "1101": H = H & "D"Case "1110": H = H & "E"Case "1111": H = H & "F"End SelectNext iWhile Left(H, 1) = "0"H = Right(H, Len(H) - 1)WendBIN_to_HEX = HEnd Function