вы можете сделать это, если вы бежите вопросы от формы.
using ключа случай вниз формы
установите свойство KeyPreview формы для того чтобы True
Приватное Sub Form_KeyDown (KeyCode как интежер, перенос как интежер)
Если KeyCode = vbKeyEscape после этого
KeyCode = 0
Закончитесь если
Закончите подводную лодку