Если речь идет действительно о пользовательской функции, то решение будет вот таким:
Function Preobrazovat(Znachenie)
y = Replace(Znachenie, ".", ",", , 1)
Preobrazovat = CDbl(Left(y, Len(y) - 3))
End Function
если же речь идет просто о сложной составной функции, которую можно собрать из стандартных функций Excel, то решение будет следующим:
=ЗНАЧЕН(ЛЕВСИМВ(ЗАМЕНИТЬ(A4;НАЙТИ(".";A4;1);1;",") ;ДЛСТР(A4)-3))