Visual Basic - cancelar mensaje en box

Tengo un formulario que tiene en el evento KeyDown y en el evento Unload y un boton con los siguientes codigos respectivamente:

Private Sub Form_KeyDown(keycode As Integer, Shift As Integer)
If keycode = 27 Then Call command1_Click
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call command1_Click
If msgyn("Desea salir de la aplicación?") = False Then
Cancel = 1
Else
End
End If
End Sub

Private Sub command1_Click()
Unload Me
End Sub

El caso es que cuando presiono Esc y se abre el cuadro del mensaje no encuantro la forma para que si presiono Esc nuevamente, este se cierre.

Gracias por adelantado.