This problem we have in the most programming languages; i use a function which also handles thousand separators.
Sub dFormat(Iformat)
Dim dForm As String
Iformat=Iformat.Replace(",","P")
Iformat=Iformat.Replace(".","K")
Iformat=Iformat.Replace("K",",")
Iformat=Iformat.Replace("P",".")