Formda Metin Kutusu İçerik Kontrolü

Merhabalar,
Bir formda yeralan altformda imlecin yeraldığı satırdaki değerin belli bir karakter kümesini içerip içermediğini kontrol etmek istiyorum. Ekteki örnekte olduğu gibi imleç altformda bir satırdayken "Yenile" butonuna bastığımda ok işaretinin altındaki metin kutusunda bu harf dizinini içerir veya içermez diye yazdırmak istiyorum. bu olayı ekstra sorgular ekleyerek yapılabilir ama programa ekstra başka sorgu eklemeden kod bazında nasıl yapabilirim.
Örneğin, altformdaki değerler "DARA, PARA, KARAM, GRAM, ARMA, TARAK, KIRAÇ". bu değer satırlarından imlecimi  "DARA, PARA, KARAM, TARAK" içeren satırlara bırakıp "yenile dediğimde Metin7 Metin kutusunda "ARA İÇERİYOR" yazsın, diğerleri seçiliyken "ARA İÇERMİYOR" yazsın istiyorum.
Ekstra sorgu eklemeden nasıl yapabilirim?
Saygılarımla.

ana forma

Option Compare Database

satırının altına

Public txtDeger As String

kodunu,
alt forma aşağıdaki kodu ekleyip

Private Sub DEGER_GotFocus()

Me.Parent.txtDeger = Me.DEGER

End Sub

yenile butonun koduna da "me.refresh" satırından önce

Me.Metin7 = IIf(InStr(1, txtDeger, "ARA", 1) > 0, "ARA İÇERİYOR", "ARA İÇERMİYOR")

kodunu ekleyip dener misiniz?

yada doğrudan sadece alttaki kodu yazın yenile butonunun koduna

Dim txtDeger As String

txtDeger = Me.ALTFORM.Controls("deger")

Me.Metin7 = IIf(InStr(1, txtDeger, "ARA", 1) > 0, "ARA İÇERİYOR", "ARA İÇERMİYOR")

Me.Refresh

çok teşekkür ederim @"halily"
tam olarak istediğim oldu. aklınıza, fikrinize sağlık.
problemim çözülmüştür.

ÖD )
iyi çalışmalar
kolay gelsin