Aviso para fechar período final do mês ou dia 01/ de cada mes

Boa tarde!

Tenho uma tela inicial que pretendo colocar em Form_Load essa função...

na tela inicial eu tenho um campo DataHoraLogin, onde quando o usuário loga ele fica registrado,

eu quero pegar essa data e hora e fazer um "Check" no Form_Load tipo

If Me.DataHoraLogin for maior que dia 31 ou menor que dia 01 then
MsgBox "Favor verificar o periodo", vbcritical, "mensagem"
end if

Mais ou menos isso, porém eu não sei como fazer isso "Ano" a "Ano" ou "Mes" a "Mes"

tentei usar o dateserial

If Me.DataHoraLogin.Value = DateSerial(Year(Now()), Month(Now()), 1) Then

mas não deu certo

Boa noite Mizael

Da uma olhada

Saludos

Bom dia Franklin!

você poderia me enviar novamente o arquivo ?

perdi meus arquivos =/