Binary to Hexadecimal

Public Function toHex(s As String)
   'Converts a binary string to base 16
   Dim sResult As String
   Dim nCnt As Integer
   For nCnt = 1 To Len(s)
       sResult = sResult & Right("00" & Hex(Asc(Mid(s, nCnt, 1))), 2)
   Next
   toHex = sResult
End Function

Public Function toBinary(s As String)
   'Converts hex pairs to binary
   Dim sResult As String
   Dim nCnt As Integer
   For nCnt = 1 To Len(s) Step 2
       sResult = sResult & Chr(Val("&H" & Mid(s, nCnt, 2)))
   Next
   toBinary = sResult
End Function

}