Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
dim lZeit1 as long, lZeit2 as long, lDifferenz as long
 
private sub EineSublZeit1 =  GetTickCount 
 
' Deine Verarbeitung
 
lZeit2 = GetTickCount 
lDifferenz = lZeit2 -lZeit1
end sub