Option Explicit
 
Private vntStartZeit As Variant
Private vntEndZeit As Variant
Public Sub SetzeStartzeit()
  vntStartZeit = Now
End Sub
 
Public Function Zeitnahme() As Variant
  Dim lngZeitDiff As Long
 
  If IsEmpty(vntStartZeit) Then
    MsgBox "Zuerst Startzeit eingeben.", vbInformation
   Else
     vntEndZeit = Now
 
     lngZeitDiff = DateDiff("s", vntStartZeit, vntEndZeit)
 
     Zeitnahme = DateAdd("s", lngZeitDiff, 0)
  End If
End Function

Private Sub Form_load()
SetzeStartZeit
End Sub