Boa noite pessoal!

Gostaria de Interromper ou continuar código usando teclas de atalho, é possível?

Meu código fica rodando um loop até terminar uma lista, porém certos momentos gostaria de interromper mas não finalizar, e sim ter a possibilidade de escolher se finalizo ou continuo, isso tudo usando teclas de atalho

Exemplo:

Para interromper a execução: Espaço
Pra continuar de onde parou: Enter
Pra terminar: Esc

Pesquisando encontrei:

Private InterromperProcesso As Boolean


    While InterromperProcesso =False
      'Seu processo
    End While


  Private Sub dg_KeyDown(sender As Object, e As KeyEventArgs) Handles dg.KeyDown

    If e.KeyCode = Keys.Enter Then
      InterromperProcesso = True
    End If

  End Sub

Mas o VBA não aceita o: Private Sub dg_KeyDown(sender As Object, e As KeyEventArgs) Handles dg.KeyDown

Obrigado