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

This article has been archived. It is offered "as is" and will no longer be updated.
##### Summary
This article contains a sample Microsoft Visual Basic for Applicationsfunction that converts an integer number to any base less than 10.
The following function is a sample function called "baseconv" that takes twoarguments. The first argument, InputNum, is an integer number to beconverted. The second argument, BaseNum, is the number of the base toconvert InputNum to.

### Sample Visual Basic Procedure

``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				``
The function should be typed in a worksheet cell as follows:
`   =baseconv(InputNum, BaseNum)				`
For example, the following call to the baseconv function
`   =baseconv(100,2)				`
returns the following value in the cell:
`   1100100				`
##### References
For more information about creating function procedures in Microsoft Excel, click Microsoft Visual Basic Help on the Help menu, type Writing a Function Procedure in the Office Assistant or the Answer Wizard, and then click Search to view the topic.

To access Visual Basic Help:

1. On the Tools menu, point to Macro, and then click Visual Basic Editor.
2. On the Help menu, click Microsoft Visual Basic Help.
custom XL2000
Properties

Article ID: 213392 - Last Review: 10/26/2013 16:07:00 - Revision: 4.0

• Microsoft Excel 2000 Standard Edition
• kbnosurvey kbarchive kbdtacode kbhowto kbprogramming KB213392