Function makeMsgBox(tit,mess,icon,buts,defs,mode)
   butVal = icon + buts + defs + mode
   mess = replace(mess,"@@",Chr(13)&Chr(10))
   makeMsgBox = MsgBox(mess,butVal,tit)
End Function