Any To Any
The previous code gives rise to a very simple Function. This
Function's purpose is to accept a number of any base and return its
representation in any other base.
Public Function AnyToAny(ByVal Number As String, ByVal InputBase As_
Short,ByVal OutputBase As Short) As String
Dim lDecimal As Long = AnyToDecimal(Number, InputBase)
Return DecimalToAny(lDecimal, OutputBase)
End Function