For x = 1 To 10
For i = 1 To 1000000
DoEvents
Next i
MsgBox "ciao"
Next x



questo dopo tot secondi da un messaggi di saluto