VBA程序：将数字转换成任意进制的数

Public Function Bas2Bas(Number As String, Optional ByVal FromBase As Byte = 10, Optional ByVal ToBase As Byte = 16) As String
 Const BaseDigits As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
 Dim MyResult As String
 Dim dRemainder As Double
 Dim MyPlace As Byte
 Dim MyDigit As Byte
 Dim dValue As Double
 On Error Resume Next
 If Len(Number) > 15 Then GoTo Done
 
 Number = UCase(Number)
 If (ToBase < 2) Or (ToBase > 36) Then GoTo Done
 
 For MyPlace = 1 To Len(Number)
   For MyDigit = 0 To 36
     If MyDigit >= FromBase Then GoTo Done
     If Mid(BaseDigits, MyDigit + 1, 1) = Mid(Number, MyPlace, 1) Then Exit For
   Next
   dValue = dValue + MyDigit * FromBase ^ (Len(Number) - MyPlace)
 Next
 
 Do
   dRemainder = dValue - (ToBase * Int((dValue / ToBase)))
   MyResult = Mid(BaseDigits, dRemainder + 1, 1) & MyResult
   dValue = Int(dValue / ToBase)
 Loop While (dValue > 0)
Done:
 Bas2Bas = MyResult
End Function