Language Basics VisualBasic Script

Sub cmdDoUntil()
   Dim intValue As Integer
   intValue = 10
   Do Until intValue = 35
      intValue = intValue + 1
    Loop
End Sub