谁能给个2进制转16进制字符串的源码我

建两个文本框
Text1.text中输入2进制字符串
Text2.text中输出相应的16进制字符串

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Text1_Change()

s = Text1.Text

If Len(s) Mod 4 <> 0 Then

Select Case Len(s) Mod 4
Case 1
s = "000" & s
Case 2
s = "00" & s
Case 3
s = "0" & s
End Select

End If

For i = 1 To Len(s) Step 4
w = w & z(Mid(s, i, 4))
Next

Text2.Text = w

End Sub

Private Function z(t As String) As String
Select Case t
Case "0000"
z = "0"
Case "0001"
z = "1"
Case "0010"
z = "2"
Case "0011"
z = "3"
Case "0100"
z = "4"
Case "0101"
z = "5"
Case "0110"