Function VBSMsgBox(sTitle, sMessage, nIcon, nButtons, nDefaultButton, nModes)
	dim nButtonValue

	nButtonValue = nButtons + (nIcon * 16) + (nDefaultButton * 256) + (nModes * 4096)

	VBSMsgBox = MsgBox(sMessage, nButtonValue, sTitle)
End Function

Function VBSInputBox(sTitle, sPrompt, sDefault)
   VBSInputBox = InputBox(sPrompt, sTitle, sDefault)
End Function