Function ac(strVeri)
If IsNull(strVeri) Then Exit Function

strVeri = Replace(strVeri, "http://", "")
strVeri = Replace(strVeri, "www.", "")
strVeri = Replace(strVeri, "rapidshare.com", "http://rapidshare.com",1,-1,1)

ac = strVeri
End Function

burası var işte

tam olarak da

strVeri = Replace(strVeri, "http://", "") bu var bunu sildim alttakide hatalı dedi onuda sildim alttaki haltalı dedi yabi filtre istemyor ama filtre koymam gerekli