The new code will work under ANY case. I originally solved the problem as
you posted it.

"Nicolas Cage" wrote:


"Joel" ha scritto nel messaggio
...
Sub test()

MyNumber = "100.000,00"
location_period = InStr(MyNumber, ".")
location_comma = InStr(MyNumber, ",")
If location_comma location_period Then
MyNumber = Replace(MyNumber, ".", ";")
MyNumber = Replace(MyNumber, ",", ".")
MyNumber = Replace(MyNumber, ";", ",")

End If

Not correct, if number is "100,000,00" ?