FormatPercentage Function

The function returns an expression formatted as a percentage (multiplied by 100) with a trailing % character.

Dim MyValue, MyReturn
MyValue = 3459459.345
MyReturn = FormatPercent(MyValue, 1, vbUseDefault, vbUseDefault, vbUseDefault)
MsgBox MyReturn

MyReturn = FormatPercent(1000.578) ' Returns 57.80%
MyReturn = FormatPercent(1000.578, 1) ' Returns 57.8%
MyReturn = FormatPercent(1000.578, 3) ' Returns 57.800%
MyReturn = FormatPercent(.578,,True) ' Returns 57.80%
MyReturn = FormatPercent(.578,,False) ' Returns 57.80%
MyReturn = FormatPercent(-1000.578,,,True) ' Returns (57.80%)
MyReturn = FormatPercent(-1000.578,,,False) ' Returns -57.80%
MyReturn = FormatPercent(1000000.578,,,,True) ' Returns 57.80%
MyReturn = FormatPercent(1000000.578,,,,False) ' Returns 57.80%