Dim vbRunning
vbRunning=True

Function VBMsgBox(p, b, t)
VBMsgBox=MsgBox(p, b, t)
End Function