[testi]

Am Besten ist es, wenn du dir eine eigene Routine schreibst.
Wie z.B.:

Public Sub Pause(Zeit As Variant)
Zeit = CDec(Zeit)
Start = Timer
Anfang = 0
Do While Anfang < Zeit
Anfang = Timer - Start
DoEvents
Loop
End Sub

Dann kannst du die For-Next Schleife wie wie folgend pausieren:

For i= 1 to 324234
........
Pause 1 'Für 1 Sekunden Pause
Next i

mfG
Testi