Option Explicit
Dim Sekunden As Long
Dim Minuten As Long
Dim Stunden As Long
Dim Tage As Long
 
Private Sub Timer1_Timer ()
Sekunden = Sekunden + 1
 
If Sekunden = 60 Then
  Minuten = Minuten + 1
  Sekunden = 0
End If
 
If Minuten = 60 Then
  Stunden = Stunden + 1
  Minuten = 0
End If
 
If Stunden = 24 Then
  Tage = Tage + 1
  Stunden = 0
End If
End Sub

If Tage = 1 Then
  MsgBox "Seit dem Start ist ein Tag vergangen.", vbInformation
End If