求二进制转十六进制VB代码！！急急急急急

Private Function Two16(ByVal X As String) As String '把二进制数转化为十六进制数
Do While Len(X) Mod 4 <> 0
X = "0" + X
Loop
Do While Len(X) > 0
Select Case Right(X, 4)
Case "0000"
Two16 = "0" + Two16
Case "0001"
Two16 = "1" + Two16
Case "0010"
Two16 = "2" + Two16
Case "0011"
Two16 = "3" + Two16
Case "0100"
Two16 = "4" + Two16
Case "0101"
Two16 = "5" + Two16
Case "0110"
Two16 = "6" + Two16
Case "0111"
Two16 = "7" + Two16
Case "1000"
Two16 = "8" + Two16
Case "1001"
Two16 = "9" + Two16
Case "1010"
T