'Função ("For To, "IF Then Else End If",Next) Verifica lista de 5 Numeros se Par ou Impar

Sub procSelecImpar()
'Função "For To"  "IF Then Else End If", Verifica lista de 5 numeros se par ou impar
    Dim num As Integer
    Dim i As Integer
        For i = 1 To 5
        num = CInt(InputBox("digite o numero"))
            If (num Mod 2 = 0) Then
            Debug.Print num & " É par "
            Else
            Debug.Print num & " É Impar "
            End If
        Next
End Sub