Solucionado dejo la respuesta para otros que tengan duda
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then
Dim Mensaje, Botones, Titulo, Respuesta
Mensaje = "¿Desea salir?"
Botones = vbYesNo + vbQuestion + vbDefaultButton2
Titulo = "Escape"
Respuesta = MsgBox(Mensaje, Botones, Titulo)
If Respuesta = vbYes Then
Mostrar1.Visible = False
Else
End If
End If
End Sub