' VBScript File
Function makeMsgBox(title,mess,icon,buts,defbut,mods)
   butVal = buts + (icon*16) + (defbut*256) + (mods*4096)
   makeMsgBox = MsgBox(mess,butVal,title)
End Function
Function vbCreateYesNoBox(title, msg) 
	i=0 ' CHange to 2 for question dialog
	d=1 ' Change to 0 for no as default
	r=makeMsgBox(title,msg,i,4,d,1)
	If r= 6 Then 
		vbCreateYesNoBox=true
	else
		vbCreateYesNoBox=false
	End If	
End Function