Beh ... pero' leggere una paginetta dell'help ... non e' difficile ...

codice:
    Dim res As VbMsgBoxResult
    
    res = MsgBox("Domanda ...", vbOKCancel, "Titolo")
    If res = vbOK Then MsgBox "OK"
    If res = vbCancel Then MsgBox "Annulla"