Language Basics VisualBasic Script

Sub forTest()
    Dim intCounter As Integer
    
    For intCounter = 1 To 10
        If (intCounter Mod 2) = 0 Then
            Debug.Print intCounter & " is an even number"
        Else
            Debug.Print intCounter & " is an odd number"
        End If
    Next
End Sub