Sorry PHV, but I have tried all those formats FormatNumber, CDBL, int, CCur but it rounds down by 1 penny.
But I think this will work.
Dim objRegExp, outputStr, myMatches
Set objRegExp = New Regexp
'LogEvent "val= " & strtoCur, false, false, false
objRegExp.IgnoreCase = True...