Language Basics VisualBasic Script

Sub cmdEfficient()
       Dim intCounter As Integer
       intCounter = 12
       Do While intCounter < 35
          intCounter = intCounter + 1
       Loop
End Sub