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
yada doğrudan sadece alttaki kodu yazın yenile butonunun koduna