Deixar função em loop até apertar uma tecla

Pessoal, tenho um form com um código, gostaria de deixar uma função em loop, e quando apertar a tecla 'enter' parar, essa função de parar eu ká consegui, no KeyPress, mas por em loop ainda não, alguém tem uma sugestão??

O código que uso para 'parar' ainda não está terminado, pois não tema função do loop, mas por enquanto tá assim:

Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 'código para terminar o loop, seria stop??End IfEnd Sub

Té mais.