Hi,
First question: I sincerely hope the salary-field is numeric in nature, else this won't work (change Field1 with your fieldname ofc):
Private Sub Field1_LostFocus()
If Me.Field1.Value > 100000 Then
MsgBox "Warning! The salary is above $ 100,000!", vbCritical, "Warning! High salary!"...