Sub TestNumber
'if there is not a thousand point
Dim sNum As String = "1229,861"
Log( sNum.Replace(",", "."))
'otherwise
Dim sNum As String = "1.229,861"
sNum = sNum.Replace(",", "#")
sNum = sNum.Replace(".", ",")
sNum = sNum.Replace("#", ".")
Log( sNum)
End Sub