XL2000: Visual Basic Macro to Convert Number to a Different Base

Function baseconv(InputNum, BaseNum)
   Dim quotient, remainder As Single
   Dim answer As String

   quotient = InputNum   ' Set quotient to number to convert.
   remainder = InputNum  ' Set remainder to number to convert.
   answer = ""

   Do While quotient <> 0   ' Loop while quotient is not zero.

      ' Store the remainder of the quotient divided by base number in a
      ' variable called remainder.

      remainder = quotient Mod BaseNum

      ' Reset quotient variable to the integer value of the quotient
      ' divided by base number.

      quotient = Int(quotient / BaseNum)

      ' Reset answer to contain remainder and the previous answer.
      answer = remainder & answer
      ' Convert answer variable to a number.
   Loop
      baseconv = Val(answer)
End Function