For I = -1 To 10
MsgBox I
If I = 3 Then Stop
Next I