Retrieve the currency symbol

Retrieve the currency symbol

It is very simple to retrieve the correct currency symbol, using just plain VBA statements:

currSymbol = Trim$(Replace(FormatCurrency(0,0), "0", ""))

If you can also determine if the symbol precedes or follows the currency amount using this method:

If Instr(FormatCurrency(0,0), currSymbol) ' Currency symbol precedes the currency amountElse    ' Currency symbol follows the currency amountEnd If


Share the Post: