DimoRegExp
SetoRegExp=NewRegExp
oRegExp.Pattern="(^0/d{2,3}/-[1-9]/d{2,7}$)|(^[1-9]/d{2,7}$)|(^/(0[1-9]{2,3}/)[1-9]/d{2,7}$)"
oRegExp.IgnoreCase=True
oRegExp.Global=True
IsValidFax=oRegExp.Test(fax)
SetoRegExp=Nothing
EndFunction