Function CheckDate(Value)
    Dim MyCheck
    MyCheck = IsDate(Value)
    CheckDate = MyCheck
End Function

Function NumberFormat(number)
	Dim ValueNumber	
	ValueNumber = FormatNumber(number, 2)
	NumberFormat = ValueNumber
End function

Function MsgYesNoCancel(Message,Title)
	MsgYesNoCancel=MsgBox(Message,vbYesNoCancel + vbCritical + vbModal,Title)
End Function