'Verifica se entre 5 Numeros se há Impar

Sub NumeroTenImpar()
'Verifica se entre 5 numeros se há impar
Dim n1 As Integer
Dim n2 As Integer
Dim n3 As Integer
Dim n4 As Integer
Dim n5 As Integer

n1 = CInt(InputBox("Digite o Primeiro Numero : "))
n2 = CInt(InputBox("Digite o Segundo Numero : "))
n3 = CInt(InputBox("Digite o terceiro Numero : "))
n4 = CInt(InputBox("Digite o Quarto Numero : "))
n5 = CInt(InputBox("Digite o Quinto Numero : "))

    If (n1 Mod 2 = 1) Or (n2 Mod 2 = 1) Or (n3 Mod 2 = 1) Or (n4 Mod 2 = 1) Or (n5 Mod 2 = 1) Then
    MsgBox "Tem impar"
    Else
    MsgBox "Todos são Pares"
    End If

End Sub