Is this a trivia question? A homework question?
Dim count As Integer = 0
For intA = -2 To 13 Step 3
count = count + 1
Next
For intB = 4 To -5 Step -2
count = count + 1
Next
For intC = 10 To 20 Step -5
count = count + 1
Next
For intD = 0 To 10
count = count + 1
Next
For intE = 20 To 120 Step 10
count = count + 1
Next
MsgBox(count)