Code:
strMsg = "You must select the node - before you can delete it."
intMsgType = vbExclamation + vbOkCancel
intResponse = MsgBox(strMsg, intMsgType, "Operator action")

Wirh this example you can also exit your routine - depending on selection - Just an example