Dim As Integer i, x=5
For i=0 To x
  ?i
  If i=3 Then x=7
Next
?"i=" &i
?"x=" &x
Sleep