Public Sub Main()
  Dim Counter As Integer

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