Pessoal gostaria de fazer o seguinte:

Em uma text tenho a data.

Como faço para que quando a data chegar por exemplo em:

mês 12 de 2005 abrir uma msgbox e dizer

para ficar testando um valor em um campo, você pode usar um Timer

 

 

Private Sub Timer1_Timer()
  On Error Resume Next
  If Text1.Text <> "" Then
    If Month(Text1.Text) = "12" Then
      If Year(Text1.Text) = "2005" Then
        MsgBox "Ok"
      End If
    End If
  End If
End Sub

ou pode ser mais resumido assim

 

Private Sub Timer1_Timer()
  On Error Resume Next
  If Text1.Text <> "" Then
    If format(Text1,"m/yyyy") = "12/2005" Then
            MsgBox "Ok"
     End If
  End If
End Sub