Sub doubleDemo() Dim dblNumber As Double dblNumber = 1234.567 Debug.Print dblNumber Debug.Print FormatPercent(dblNumber) End Sub