Hey,

You can use Regular expressions

dim objRegx
set objRegx = Ne RegExp
objRegx.pattern = "(1-)?\d{3,}-\d{3,}-\d{4,}"

if (objRegx.test(honotice.txthomephone.value)) then
    'Phone OK
else
    'Phone not OK
end if

Something like that. Regular expressions are pretty powerful, and are definitely very helpful.

Brian