Function MakeMsgBox(sTitle, sMessage, nIcon, nButtons, nDefaultButton)
   Dim nButtonValue
   nButtonValue = nButtons + (nIcon*16) + (nDefaultButton*256)
   MakeMsgBox = MsgBox(sMessage, nButtonValue, sTitle)
End Function

Function MakeInputBox(sTitle, sMessage, sDefaultValue)
   MakeInputBox = InputBox(sMessage, sTitle, sDefaultValue)
End Function