Examples: CurrencySymbol property

The following example displays the currency international settings: the currency symbol; whether a space is between the currency symbol and the number; whether the currency symbol follows the number.

Dim session As New NotesSession
Dim international As NotesInternational
Set international = session.International
Messagebox international.CurrencySymbol,, "Currency symbol"
If international.IsCurrencySpace Then
  Messagebox "Yes",, _
  "Space between currency symbol and number?"
Else
  Messagebox "No",, _
  "Space between currency symbol and number?"
End If
If international.IsCurrencySuffix Then
  Messagebox "Yes",, "Currency symbol follows number?"
Else
  Messagebox "No",, "Currency symbol follows number?"
End If