Language Basics VisualBasic Script

Sub cmdDoWhileLoop()
   Dim intValue As Integer
   intValue = 10
   Do While Nz(intValue) < 35
      intValue = intValue + 1
    Loop
End Sub