Bom dia!! Seja bem vindo!! Isso deve te ajudar, faça os teste! Private Sub TextBox2_AfterUpdate() Dim iDate As String Dim iDays, iMnths, iYr...