If Me.cmb111 Is Null
Then MsgBox(Select Increase or Decrease[, vbOKOnly] [, Selection Required] [, helpfile, context])
Try something like this
if nz(me.cmb111,"") = "" then
msgbox"Select Increase or Decrease",vbokonly,"Selection Required"
me.cmb111.setfocus
exit sub
end if