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
See Also