riherfed

Private Sub CmdAceptar_Click() Dim FecNac As Date, Edad As Integer TxtFecNac.SetFocus FecNac = CDate(TxtFecNac) Edad = CInt((Date - FecNac) / 365) TxtEdad = Str(Edad) & " años" End Sub Quiero que si se digita enter con un msgbox advierta que debe...