[Resolvido]Dias ímpares e dias pares no VBA...

Caros colegas, procurei mas não encontro solução para algo que acho que deveria ser simples!
Como faço para exibir uma mensagem em dias específicos do mês?
Tentei o VBA abaixo mas não funcionou!

If Day(Date) = 1 Or 2 Or 4 Then
MsgBox "OK" & Day(Date)
Else
MsgBox "NÃO" & Day(Date)
End If

Nem com OR nem com AND o retorno foi correto.

Agradeço desde já!
MPS

If Day(Date) = 1 Or Day(Date) = Or Day(Date) = 2 Or Day(Date) = 4 Then
MsgBox "OK" & Day(Date)
Else
MsgBox "NÃO" & Day(Date)
End If



Cumprimentos.

Mas a função não bate com o enunciado.

Para dias pares e impares

if (day(date) mod 2) = 0 then
'dia par
else
'dia impar
end if

Se quiser especificar dias, talvez seja melhor o uso do Select

Select case day(date)
case 1,2,4,16,30
'Faça A
case 3,5,27
'faça b
case [6-15]
'faça C
case else
'faça D
end select

Sucesso!

Caros mestres, foram três soluções simples, duas no mesmo nível do problema e a Select fora deste.
Parabéns!!
Mestre Avelino, tens razão! Digitei o 1 erroneamente!
Obrigado a ambos!

O Fórum agradece o retorno.