Ejemplo de Contador en VBA

El siguiente código muestra un ejemplo de como acumular valores en un contador para luego mostrar el resultado final de la suma acumulada.

Private Sub contador()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim i1 As Integer
Dim i2 As Integer
Dim i3 As Integer
i1 = 0
i2 = 0
i3 = 0
Do
a = InputBox("Ingresa el primer numero entre 1 y 100")
Loop Until a > 0 And a < 101
Do
b = InputBox("Ingresa el segundo numero entre 1 y 100")
Loop Until b > 0 And b < 101
Do
c = InputBox("Ingresa el tercer numero entre 1 y 100")
Loop Until c > 0 And c < 101
Do
d = InputBox("Ingresa el cuarto numero entre 1 y 100")
Loop Until d > 0 And d < 101
Do
e = InputBox("Ingresa el quinto numeroentre 1 y 100")
Loop Until e > 0 And e < 101
If a >= 80 Then
i1 = i1 + 1
Else
If a > 59 And a < 80 Then
i2 = i2 + 1
Else
If a < 60 Then
i3 = i3 + 1
End If
End If
End If
If b >= 80 Then
i1 = i1 + 1
Else
If b > 59 And a < 80 Then
i2 = i2 + 1
Else
If b < 60 Then
i3 = i3 + 1
End If
End If
End If
If c >= 80 Then
i1 = i1 + 1
Else
If c > 59 And a < 80 Then
i2 = i2 + 1
Else
If c < 60 Then
i3 = i3 + 1
End If
End If
End If
If d >= 80 Then
i1 = i1 + 1
Else
If d > 59 And a < 80 Then
i2 = i2 + 1
Else
If d < 60 Then
i3 = i3 + 1
End If
End If
End If
If e >= 80 Then
i1 = i1 + 1
Else
If e > 59 And a < 80 Then
i2 = i2 + 1
Else
If e < 60 Then
i3 = i3 + 1
End If
End If
End If
MsgBox ("Los mayores de 80 son: " & i1)
MsgBox ("Los que están entre 60 y 80 son: " & i2)
MsgBox ("Los menores de 60 son: " & i3)
End Sub