Sounds like you're not expecting any user input from the MsgBox. In this case, depending on your application, the StatusBar
may be an adequate substitute.
In Excel this is easy:
Application.StatusBar = "Please be patient..."
Application.StatusBar = iDone & " of " & iTotal & " items done."
To clear the StatusBar when done:
Application.StatusBar = False
In Access, the syntax is a tiny bit more convoluted:
Temp = SysCmd(acSysCmdSetStatus, "Hey, look at me!") ' Puts out your message
Temp = SysCmd(acSysCmdClearStatus) ' Clears StatusBar
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…