もしかしたら、Timer1を貼り付けて、100msで設定して

Dim finaltime as date
finaltime = 日時の設定

private sub command1_crick()
Timer1.Enabled = True
end sub

Private Sub Timer1_Timer()
if finaltime = Now then イベント
end sub

とすれば・・・!