Code: Select all
Dim konum as Integer
Textbox1.text="Kırmızı araba yolda"
konum=Textbox1.text.IndexOf("araba")
if konum > -1 then
Msgbox("Metin içinde aranan kelime/karakter " & konum & ". karakterden itibaren yer alıyor")
Else
Msgbox("Metin içinde bulunmuyor!")
End If