Function IsValidDate(date)
 IsValidDate = IsDate(date)
End Function

Function IsNum(value)
 IsNum = IsNumeric(value)
End Function

Function MessageBox(text, style, title)
 MessageBox = MsgBox (text, style, title)
End Function