convert binary to Hex

[darre1]

Public Function BinaryToDecimal(BinaryString As String) As Long
    If (Not Len(BinaryString) > 1023) Then
        Dim retVal As Double
        If (BinaryString <> "") And (Replace(Replace(BinaryString, "1", ""), "0", "") = "") Then
            Dim i As Long
            BinaryString = StrReverse(BinaryString)
            For i = 0 To Len(BinaryString)
                If (Mid(BinaryString, i + 1, 1) = 1) Then
                    retVal = retVal + (2 ^ (i))
                End If
            Next i
        End If
        BinaryToDecimal = retVal
    Else
        MsgBox "Overflow would occur"
        Exit Function
    End If
End Function
 
Private Sub Form_Load()
    Dim strHex As String
    
    strHex = Hex(BinaryToDecimal("10000"))
End Sub

NOTE: the binaryTodecimal function is courtesy of plenderj