多少の誤差ＯＫでとりあえず10秒待たせたいってなら
>>491 の言ってるSleepを100ミリで100回やれば10秒やで。
毎回DoEvents挟めばＵＩも応答ＯＫやしな。

For i As Integer = 0 To i < 100
Sleep(100)
DoEvents
Next

みたいな感じで。