İf instr(veri,"%52")> 0 then
Kacinci= instr(veri,"%52")
Uzunluk2="%52"
Sonuc1=mid(veri,1,uzunluk2)
Sonuc2=mid(veri,kacinci+uzunluk2,len(veri))
Sonuç=sonuc1 & sonuc2

Yukarıdakş mantık gibi olabilir.Tabii biraz daha kısaltmak için instr nin tersi vardı onu unuttum.Onunlada sondan bulunur kaçıncı olduğu.
End if

---

İnstrrew miş sondan bulmak için yani a= instrrew(veri,"%52") gibi