code pour fermer une msgbox

bonjour le forum!
j'aimerais fermer une msgbox soit en cliquant sur le bouton 'annuler' soit en cliquant 'sur la petite croix 😱 je ne sais pas trop comment ça se code.. Merci de votre aide

Dim Reponse As String


Reponse = InputBox('Entrez le numero du rapport:') 'affichage de la boite de dialogue

Set maselection = Application.Worksheets('feuil1').cells(3, 2)
maselection.Value = Reponse

If Reponse = Empty Then ' test pour forcer la saisie par l'utilisateur
Reponse = InputBox(' Vous n'avez pas entré de numero! Entrez le numero du rapport:')

Set maselection = Application.Worksheets('feuil1').cells(3, 2)
maselection.Value = Reponse
End If