Function zamentochku(r As Range)
Dim arr() As String
Dim count As Integer
count = 0
ReDim arr(Len(r))
For i = 1 To Len(r)
arr(i) = Mid(r, i, 1)
If Mid(r, i, 1) = "." Then
count = count + 1
If count = 2 Then Exit For
arr(i) = ","
End If
' If Mid(r, i, 1) = cr Then arr(i) = " "
Next i
zamentochku = Join(arr(), "")
If Len(zamentochku) > 5 Then zamentochku = Left(zamentochku, Len(zamentochku) - 1)
End Function