Dim strMsg as String
StrMsg = "To send your message to all records on file click OK. If you do not want to do this click No"
if msgbox(strmsg, vbYesno, "Send message?") = vbYes then
'Code for yes goes here
Else
Exit sub
end if
[This message has been edited by Jimbob (edited 04-22-2002).]