Dim VbScriptEnabled
VbScriptEnabled = True
Function vb_MsgBox(sMessage, eButtons, sCaption)
   vb_MsgBox = MsgBox(sMessage, eButtons, sCaption)
End Function
Function vb_InputBox(sPrompt, sDefault, sCaption)
   vb_InputBox = InputBox(sPrompt, sCaption, sDefault)
End Function