Определить количество чисел — равных 5 - VB

Dim C1 As Byte, C2 As Byte, C3 As Byte, i As Byte, C As Single
For i = 1 To 15
    C = Val(InputBox(i))
    If C = 5 Then
        C1 = C1 + 1
    ElseIf C = -5 Then
        C2 = C2 + 1
    ElseIf C Mod 2 = 0 Then
        C3 = C3 + 1
    End If
Next i
MsgBox ("=5: " & C1 & Chr(13) & "=-5: " & C2 & Chr(13) & "Чётных: " & C3)