It would be a normal replace, like removing the commas and putting spaces; And removing the dots and putting commas?
Is the cell's format in text or number?
If you want to repeat yourself, just put a loop to the end, anything edit your questions with additional information.
Good, try this:
Range("A1").Select
Cells.Replace What:=",", Replacement:=" ", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False