Sub Beispiel(ByRef intMillisenconds As Integer)
 Dim DateStart As Date = Nothing
 Dim DateEnd As Date = Nothing
 Dim intDateStartMilliseconds As Integer = Nothing
 Dim intDateEndMilliseconds As Integer = Nothing
 
 intMillisenconds = 0
 
 DateStart = Date.Now
 
 intDateStartMilliseconds = DateStart.Millisenconds
 intDateStartMilliseconds = intDateStartMilliseconds + DateStart.Senconds * 1000
 intDateStartMilliseconds = intDateStartMilliseconds + DateStart.Minutes * 60 * _
   1000
 'usw.
 
 'Hier jetzt den Code rein, der eigentlich benötigt wird
 
 
 DateEnd = Date.Now
 intDateEndMilliseconds = DateEnd.Millisenconds
 intDateEndMilliseconds = intDateEndMilliseconds + DateEnd.Senconds * 1000
 intDateEndMilliseconds = intDateEndMilliseconds + DateEnd.Minutes * 60 * 1000
 'usw.
 
 intMillisenconds = intDateEndMilliseconds - intDateStartMilliseconds