Since you try with Basic:
Option Explicit
REM (dot and comma) or (comma and dot) in most cases:
Dim sThousandSeparator$, sDecimalSeparator$
Sub setSeparators()
Dim sTest$
'get thousands- and decimal separators from constant test value:
sTest = format(1234567.8, "Standard")
sThousandSeparator = mid(sTest, 2, 1)
sDecimalSeparator = mid(sTest, len(sTest) -2, 1)
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
