Attribute VB_Name = "Module1"
Public Function bin_to_hex(ByVal bin As String) As String
Dim i As Long
Dim h As String
If Len(bin) Mod 4 <> 0 Then
bin = String(4 - Len(bin) Mod 4, "0") & bin
End If
For i = 1 To Len(bin) Step 4
Select 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 Select
Next i
While  Left(H,1)="0"  H = Right(H,Len(H)-1)
Wend
bin_to_hex = h

End Function