If IsNull(strEvan) or strEvan = "" then
strMsg = "No records exist for the chosen filter." & vbCrLf
strMsg = strMsg & "Please select a different filter."
msgbox strMsg 'set your message box title and button options here as well
Exit Sub 'or function?
End If