Pues si use el mentado "GetTickCount" pero me da 0, a lo mejor lo estoy haciendo mal, por eso pregunte:
dim x as long
x=GetTickCount
****llamo funcion****
msgbox GetTickCount-x
dim x as long
x=GetTickCount
****llamo funcion****
msgbox GetTickCount-x