inserisci fra le istruzioni della routine
debug.print

Riga = 0
Do While Not EOF(1)
Open Destinazione.Text For Output As #2
DoEvents
Riga = Riga + 1
Nriga.Caption = Riga

debug.print riga

Line Input #1, Testo
DoEvents
If InStr(1, Testo, stringa.Text, vbTextCompare) > 0 Then
Print #2, Testo
End If
DoEvents
Close #2
Loop

ad ogni giro ti stamperà a video il numero della riga che sta lavorando
(con cntrl+pause puoi fermare l'esecuzione del programma sull'ultima riga letta)