üşenmeden resmini çektin o verdiğim kod sana bir sonuç üretiyor sen o sonucu bişey yapacan mesala text1 e yazdırabilirsin Kod: text1. text=Replace(Text1. Text,"123")

arkadaslar diyel, im text kutusunda 123onur123 123ahmet123 123metmet123 diye bir veri var ben bunu onur ahmet mehmet yapmak istiyom nasil yaparim...

Replace(Text1. Text,"123") demen yeterli olacaktır...

formun üstüne bir tane textbox koy ve textbox'un içine 123mehmet123 yazısını yaz... sonra bir tane de command1 ekle forma ve şu kodlar gir... Private Sub Command1_Click Dim deger deger = Text1. Text MsgBox (Mid(deger, 4, 6)) '4. harften başla 6 tane harf al demek End Sub işte problem halledilmiştir...

poyraz yanlış anlama kıllık olsun diye söylemiyorum ama senin verdiğin kod hata uyarısı veriyor... eşittir işaretini eksik olduğunu söylüyor.. herhalde önce bir değişken atayıp öyle yapılması gerekiyor...