Sub BizarreBizarre()
With Selection
.TextToColumns Destination:=Selection(1), DataType:=xlDelimited, FieldInfo:=Array(1, 1), DecimalSeparator:="."
.TextToColumns Destination:=Selection(1), DataType:=xlDelimited, FieldInfo:=Array(1, 1), ThousandsSeparator:="."
.Replace ".", ","
End With
End Sub