GetCurrencySpecifier

Public Function GetCurrencySpecifier() As String
'

' This function returns the correct Currency Specifier for the system Locale

'

Dim lBuffLen As Long
Dim sBuffer As String
Dim sCurrency As String
Dim lResult As Long

On Error GoTo vbErrorHandler

lBuffLen = 128

sBuffer = String$(lBuffLen, vbNullChar)

lResult = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SCURRENCY, sBuffer, lBuffLen)
sCurrency = Left$(sBuffer, lResult - 1)

GetCurrencySpecifier = sCurrency
Exit Function

vbErrorHandler:
'

' Handle errors here

'

End Function