Rectifico, si se puede en milisegundos
<%
Inicio = Timer()
Do While i < 20000
'response.write timer() & "<br>"
i = i + 1
Loop
Fin = Timer()
Response.Write "Tarea finalizada en " & fin - inicio & " segundos (" & (fin - inicio) * 1000 & " milisegundos)"
%>