Public Function Pause(ByVal Seconds As Long) As Single
 
    Dim StartTime As Single
    Dim EndTime As Single
    Dim bError As Boolean
 
    Const SEC_PER_DAY As Long = 86400
 
    StartTime = Timer
    Do While Timer < StartTime + Seconds
        If Timer < StartTime Then
            If Timer + SEC_PER_DAY > StartTime + Seconds Then
                bError = True
                Exit Do
            End If
        End If
        DoEvents
    Loop
    If bError Then
        EndTime = Timer + SEC_PER_DAY
    Else
        EndTime = Timer
    End If
    Pause = EndTime - StartTime
 
End Function

Call MsgBox("Die Gesamtdauer der Pause: " & CStr(Pause(10) & " Sekunden!"), _
  vbInformation)