如何使VB弹出对话框最前

把第二个参数（bottons）设为 vbSystemModal 即系统强制返回，就行了。
如：
MsgBox "**", vbSystemModal
或：
x = MsgBox("**", vbSystemModal)