Crea un formulario con dos etiquetas, dos cajas de texto y tres botones, escribe el siguiente código:

El botón Calcular la Edad

Private Sub Command1_Click()

Dim fecnac As Date, edad As Integer

fecnac = CDate(Text1)

edad = CInt((Date - fecnac) / 365)

Text2 = Str(edad) & " años"

End Sub

El botón Nuevo Cálculo

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Text1.SetFocus

End Sub

El botón Salir

Private Sub Command3_Click()

Unload Me

End

End Sub