Mensaje enviado por "Roberto Alonso" <desarrollo@bastos.es>

Puedes hacerte una función con un bucle do while sin salida y en el incluir la api que detecta la pulsación de una tecla, lo de cualquiera yo ya no se, pero si te vale el Space o Return... así seria esta función: (no lo he probado pero funcionara.

en un módulo:
Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As
Integer 'DETECTAR LA PULSACION DE UNA TECLA EN UN BUCLE
Public Const VK_ESCAPE = &H1B
Public Const VK_LBUTTON = &H1
Public Const VK_ENTER = &HD
Public Const VK_F10 = &H79

la funcion

do
  If GetAsyncKeyState(VK_ESCAPE) < 0 Then
        If MsgBox("¿Finalizar proceso?", vbYesNo + vbQuestion) = vbYes Then
            exit do
        End If
  End If
loop

Salu2 Roberto Alonso #poti.