Arkadaşlar aşağııdaki gibi bir kodla bir textbox icerisine yazılan metin icerisinde list 1 deki kelimelerle textbox icin deki kelimeler karşılaştırılıp benzer kelimeler var ise o kelimeleri list 2 deki kelimelerle değiştiriyorum.Ama şoyle bir problem var "dedi" kelimesini dediğini şekline ceviriyor ama "dedik" kelimesini gorunce dedi kelimesindeki dediğini yapıp birde sonundaki k harfini ekleyip dediğinik haline ceviriyor.Nasıl bi yontem uygulasam dedi gorunce sadece dediğini dedik gorunce ise dediklerini şekline cevirebilirim.

Sub AYIKLAMAYABASLA()
'mantık =dongumuz listedeki eleman sayısı kadar donecek bir diğer dongu ise metin uzunluğu kadar donerek _
metnin icindeki aranan kelimeleri cevirecek
'tanımlamalar
Dim aranan As String, bulunan As String
For i = 0 To List1.ListCount - 1 ' listedeki eleman sayısı kadar dongu kurduk
aranan = List1.List(i)
bulunan = List2.List(i)
txtmetin = Replace(txtmetin.Text, aranan, bulunan)
Next i
Command1.Enabled = False
End Sub
__________________