[Resolvido]Preenchimento de campo através da função If Then com várias condições

Bom dia.

Num determinado formulário tenho um campo [alerta] que deverá ser preenchido consoante algumas condições, dependendo de outros campos numéricos pré-preenchidos e a serem constantemente atualizados, nomeadamente [ano] e [mês].
Quando o campo [ano] é atualizado, o campo [alerta] vai devolver a seguinte mensagem "PAGAMENTO EM ATRASO". Para isso estou a utilizar um código VBA no evento "After Update".

No inicio do código estou a determinar várias strings.

Dim A as String
Dim B As String
Dim Y as String
Dim M as String

A = [ano]
B = [mês]
Y = Year(Now())
M = Month(Now())

Até aqui tudo bem!

1ª Condição:
O campo [ano] é menor que o ano atual.
Utilizo:

If A < Y Then
[atraso] = "PAGAMENTO EM ATRASO"
End If

Tudo certinho até aqui. Mas agora vem o busílis da questão

2ª Condição
O campo [ano] é igual ao ano atual mas o campo [mês] é menor que o mês atual
Estou a usar:

If A = Y Then
If B < M Then
[atraso] = "PAGAMENTO EM ATRASO"
End If
End If

Não está a resultar! O campo [atraso] fica em branco!
Alguém tem alguma dica?
Obrigado.

Boas...

Sei lá, pode ser algo parecido com isso..

If A = Y  and  B < M Then
[atraso] = "PAGAMENTO EM ATRASO"
End If

Boas.

Já testei. O resultado é o mesmo.
O campo [alerta] fica em branco.

Por lapso, no post inicial chamei [atraso] ao campo [alerta], mas trata-se da mesma coisa.
Obrigado

use a depuração de código e veja se ele está passando pelo segunda condição.

As variáveis estão definidas como texto,
Dim A as String
Dim B As String
Dim Y as String
Dim M as String

nessa situação Nove (9) e maior do que Dez (10), talvez ai esteja o problema.
Experimente utilizar como numero (integer ou long).

Pois é.......ou pois sim !!

Sem ter o projeto em mãos fica complicado ajudar, então especulamos ou achamos !

Penso...

O mês está como String....mas no projeto ( tabela de origem ) ele deve estar como número então de String passamos a integer ! Mesma coisa para o Ano.

A e B como eles estão definidos na tabela...número ou texto ?

Boa Rmarco, atento aos detalhes...valeu !

O erro estava na definição das variáveis. Quando as defini como Integer, ficou tudo resolvido.
Está resolvida a questão.
Muito obrigado a todos pela ajuda.

Peço desculpa por não colocar o projeto, neste e noutros posts que aqui tenho, mas os projetos em que trabalho estão protegidos em Portugal, pela Comissão Nacional de Proteção de Dados, dado que trabalho num organismo público e as Bases de Dados contêm dados pessoais de inúmeras pessoas.

De qualquer modo, uma vez mais, muito obrigado pela ajuda
Bem hajam.