Module Code:

'Converts any numeral to decimal number system
'If Number System is Hex, NumSystem would = 16
'''''''''''''''''''Number''''''''''''Number System''''''''''''''
Function dec (Numeral As String, NumSystem As Integer) As Double
    Dim s As String
    Dim P As String
    Dim N As Double
    Dim C As Integer
    Dim L As Integer
    C = 0
    N = 0
    s = Numeral
    Do Until s = ""
        L = Len(s)
        P = Mid(s, L, 1)
        s = Mid(s, 1, L - 1)
        Select Case Asc(P)
            Case 48 To 57
                N = N + (CInt(P) * (NumSystem ^ C))
            Case Is > 64
                N = N + ((Asc(P) - 55) * (NumSystem ^ C))
        End Select
        C = C + 1
    Loop
    dec = N
End Function