Sayın @m_demir, çözüm basit ancak bunu sizin yapabilmeniz lazım.

Metin Kutusunun güncelleştirme sonrasında olayına

If metinkutusu.Value = 18 Or Me.adisoyadi.Value = 8 Then



Else



MsgBox ("Bu alana " & metinkutusu & " değeri giremezsiniz")



End If

kodu ekleyerek deneyiniz.