Function Degistir(security )
Degistir= security
if Degistir<>"" then
Ayar = Replace(Degistir, "_www.r10.net ", "_www.google.com.tr " )
end if
End Function

degisken=Degistir(degisken)