Private Sub Form_Load()
    Text1.Text = DateAdd("s", 10, Now)
End Sub
 
Private Sub Timer1_Timer()
    Label1.Caption = "Aktuelle Zeit: " & Now
    Label2.Caption = "Verbleibende Zeit: " & DateDiff("s", Now, Text1.Text) & "" & _
      "Sekunden"
End Sub