<!--

Function VBMsgBox(title,mess,icon,buts,defbut,mods)
   butVal = buts + (icon*16) + (defbut*256) + (mods*4096)
   VBMsgBox = MsgBox(mess,butVal,title)
End Function

Function VBInputBox(title,pr,def)
   VBInputBox = InputBox(pr,title,def)
End Function

-->