Un semplice codice per sforzare la cpu

Dim x As Integer
For x = 1 To 1000
x = x - 1
Next x