Public Sub Main()
  Dim Counter As Integer

  Counter = 1                 ' Initialize the control variable
  While Counter <= 100        ' Test the control variable
    Debug.Print Counter       ' Execute the statements
    Counter = Counter + 1     ' Modify the control variable
  Wend                        ' Iterate
End Sub