Raúl Mendoza respondió:
Utiliza on error Private Sub CommandButton1_Click() on error GoTo ErrorHandler Dim años, nada As Double años = Int((DateDiff("d", TextBox10, TextBox1) + 1.2425) / 365.2425) TextBox11 = años ErrorHandler: ' Poner cualqueir codigo de control de errores...