Någon som vet hur jag kan ta tid på en procedur för att kunna optimera programmet.

koden jag ska optimera tar ca 5 minuter men jag skulla villa ta tid på enstaka procedurer för att se vad som tar tid.

dim tid as singel
tid = timer
'kod
msgbox timer - tid

Du kan använda GetTickCount oxå...

Public Declare Function GetTickCount Lib "kernel32" alias "GetTickCount" () As Long

Dim tid As Long
tid = GetTickCount
'kod
tid=GetTickCount - tid
msgbox tid

/Erik