Option Explicit
' --------------------------------------------------------- 
' API Funktion GetTickCount 
' Eingestellt von: Andre Schau 
' Datum: 5. Juno 2012 
' Kommentar: Funktion zur Ermittlung der Systemzeit 
' Parameter: 
' Rückgabe:  Systemzeit 
' 
' weitere benoetigte Programme und Funktionen 
' Aufruf:   Beispiel siehe Sub callGetTickCount() 
' Hinweis: 
' --------------------------------------------------------- 
'Deklaration der API-Funktion 
Private Declare Function GetTickCount Lib "kernel32.dll" () As Long

Sub callGetTickCount()
'Variablendeklaration 
'Long 
Dim loStartTime As Long
'Startzeit uebernehmen 
loStartTime = GetTickCount
'3s warten 
Application.Wait (Now + TimeValue("0:00:03"))
'Meldung Laufzeit in Sekunden aus Differenz von Systemzeit 
'und Startzeit / 1000 
MsgBox "Laufzeit " & _
  (GetTickCount - loStartTime) / 1000 & " Sekunden.", _
    vbInformation, "Application.Wait Soll: 3 Sekunden"
End Sub