...= New Regexp
'LogEvent "val= " & strtoCur, false, false, false
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "^[\s+-]?([0-9]\d*\d{0,2}(,?\d{3})*)(\.\d{1,2})?"
Set myMatches = objRegExp.Execute(strtoCur)
strCurFormat = myMatches.Item(0)
Ordinary Programmer