"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" ?