各位大哥大姐，帮帮忙，二进制转换到十六进制的源程序

二进制转换为十进制数
Private Function BinaryToDecimal(ByVal varString As String) As String
Dim SLen As Long, I As Long, returnNum As Long
SLen = Len(varString)
For I = 0 To SLen - 1
returnNum = returnNum + Val(Mid(varString, I + 1, 1)) * (2 ^ (SLen - I - 1))
Next
BinaryToDecimal = returnNum
End Function

'调用函数并将十进制转换为十六进制数
Private Sub Command1_Click()
Dim strDecimal As String
strDecimal = BinaryToDecimal("00001111")
MsgBox Hex(strDecimal)
End Sub