Arthur, boa noite!

Crie as 3 textbox em um form adicionando um botão.
Depois adicione o código abaixo no form.

Private Sub CommandButton1_Click()
       
    Me.TextBox3 = DateDiff("M", Me.TextBox1.Text, Me.TextBox2.Text)
    '"yyyy" retorna a diferença em anos
    '"d" retorna a diferença em dias
    '"M" retorna a diferença em meses
   
End Sub

Dê retorno!

Att,

Bom dia, obrigado!

Com botão funciona... mas queria que fosse automático, assim que eu entrasse com o valor da segunda data na TextBox o Label atualizaria com a qtd de meses.

Consegui, coloquei no evento Change da TextoBox da última data inserida, ficou assim:

Private Sub TextBox10_Change()
Me.Label15 = DateDiff("M", Me.TextBox9.Text, Me.TextBox10.Text)
End Sub

Mesmo assim obrigado!

arthur,

Na sua solicitação você não informou este detalhe!
Por isso que fiz com botão.

Se de alguma forma o meu exemplo foi de ajuda, dê um joinha como forma de agradecimento.

Se caso já supriu a sua necessidade, marque o tópico como Resolvido.

Att,