Base de datos

Dim Día As Integer
Dim Edad As Integer

Private Sub Command1_Click()

    Día = Label4.Caption
    Edad = Label3.Caption
    Adodc1.Recordset.Delete
    Adodc1.Recordset.AddNew
    Label4.Caption = Día
    Label3.Caption = Edad
    Adodc1.Recordset.Update

End Sub

Private Sub Timer1_Timer()

    If Label3.Caption < 80 Then

        If Label4.Caption >= 365 Then

            Label3.Caption = Val(Label3.Caption) + 1

            Label4.Caption = 0

        Else

            Label4.Caption = Val(Label4.Caption) + 1

        End If

    Else

        Muerte

    End If

End Sub

Sub Muerte()

    Dim Msg, Style, Title, Help, Ctxt, Response, MyString
    Msg = "La muerte se avecina, hay que usar una paradoja espacio-temporal"
    Style = vbOKOnly + vbExclamation
    Title = "El fin se acerca"
    Response = MsgBox(Msg, Style, Title)

End Sub