asp+dll 二進制轉十六進制問題，幫幫忙啦

Question

VB二進制轉十六進制部分： Function ToHex_B(BinStr As String) As String 
Dim i As Long 
BinStr = String((Len(BinStr) \ 4 + IIf(Len(BinStr) Mod 4, 1, 0)) * 4 - Len(BinStr), "0") & BinStr 
For i = 0 To Len(BinStr) \ 4 - 1 
    Select Case Mid$(BinStr, i * 4 + 1, 4) 
        Case "0000": ToHex_B = ToHex_B & "0" 
        Case "0001": ToHex_B = ToHex_B & "1" 
        Case "0010": ToHex_B = ToHex_B & "2" 
        Case "0011": ToHex_B = ToHex_B & "3" 
        Case "0100": ToHex_B = ToHex_B & "4" 
        Case "0101": ToHex_B = ToHex_B & "5" 
        Case "0110": ToHex_B = ToHex_B & "6" 
        Case "0111": ToHex_B = ToHex_B & "7" 
        Case "1000": ToHex_B = ToHex_B & "8" 
        Case "1001": ToHex_B = ToHex_B & "9" 
        Case "1010": ToHex_B = ToHex_B & "A" 
        Case "1011": ToHex_B = ToHex_B & "B" 
        Case "1100": ToHex_B = ToHex_B & "C" 
        Case "1101": ToHex_B = ToHex_B & "D" 
        Case "1110": ToHex_B = ToHex_B & "E" 
        Case "1111": ToHex_B = ToHex_B & "F" 
    End Select 
Next i 
End Function ASP部分：
<!--#include file="dbconnect/conn_inc.asp" --> <% 
Set PMAC = Server.CreateObject("pingmac.ToHex_B") set rs=server.CreateObject("adodb.recordset") 
sql="select * from chainfo where chanum='2136'" 
rs.Open sql,rangame1_conn,1,1 nFieldSize = Rs("ChaInven").ActualSize 
gHex = Rs("ChaInven").GetChunk(nFieldSize) '输入到dll  
 PMAC.charHexCl=gHex  'dll输出  
 HexStr = PMAC.GetCharHex  %> 
输出： <font color=ff0000> <%=HexStr%> </font> 
<% 
rs.Close() 
   set rs=nothing 
%> 
ChaInven列为二进制数据，我要利用VB的转换语句讲二进制转换为16进制，用HexStr输出来 
小弟VB不懂，也刚刚看了资料，但缺乏事例 
看VB里面該怎么写实现： 
'输入到dll 
 PMAC.charHexCl=gHex 
'dll输出 
 HexStr = PMAC.GetCharHex 高分求助

Answer 1

Dim i&, j&, k&
Private Sub Command1_Click()
   MsgBox Conv216("1010")
End SubFunction Conv216(ByVal tstr As String) As String '二进制转十六进制
   j = 0
   k = Len(Trim(tstr))
   For i = 1 To k
      j = IIf(Val(Mid(tstr, k - (i - 1), 1)) > 0, j + 2 ^ (i - 1), j)
   Next i
   Conv216 = Hex(j)
End Function

Answer 2

cbm666 您好！ 你QQ多少啊？我想请教下这个问题、、还有VB建模的问题不用花费你多少时间！