Ещё раз про замену точек на запятые

[НеВа6464]

Пользуясь методом:

With Selection
.Replace ".", Mid(1 / 2, 2, 1)
.TextToColumns: .NumberFormat = "0.000"
End With

Столкнулся с тем, что текст "1249.149" при замене точки на запятую превращается в число 1 249 149,000.
Так что же означают циферки в Mid(1 / 2, 2, 1)?
Или как решить данную коллизию?

[Hugo121]

Проверил - помогает задание сперва текстового формата выделению.

Т.е. типа так (у меня разделители другие, поэтому заменил точки на запятые):

Sub tt()
With Selection
.NumberFormat = "@"
.Value = "1249,149"
.Replace ",", Mid(1 / 2, 2, 1)
.TextToColumns: .NumberFormat = "0.000"
End With
End Sub

А код Mid(1 / 2, 2, 1) возвращает то, что стоит вторым знаком в результате деления 1 на 2, т.е. точку или запятую.