程序运行暂停

我有段程序，在执行过程中需要程序运行暂停10秒，十秒后继续运行。并且在StatusBar实现计时，显示10， 9,8,7....代码要怎么写？

For i = 1 to 10
msgbox "Go"
'运行完Msgbox后开始暂停10秒
’StatusBar 显示倒计时，计时完后继续Next

next i