Y取得

ミリ秒単位

Declare Function timeGetTime Lib "winmm.dll" () As Long
sub time()
Dim ts As Long
ts = timeGetTime()
Call Ytest
MsgBox (timeGetTime() - ts)
end sub