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) < Instr(FormatCurrency(0,0), "0") Then ' Currency symbol precedes the currency amountElse ' Currency symbol follows the currency amountEnd If