Format Phone Number

<soucre lang="vb"> Function FormatPhone(ph) dim phone phone=ph

phone = Replace(phone,"(","") phone = Replace(phone,")","") phone = Replace(phone," ","") phone = Replace(phone,".","") phone = Replace(phone,"-","") phone = lcase(phone) if Len(phone)=11 and Left(phone,1)="1" then phone=Mid(phone,2)

if Len(phone)=10 then FormatPhone = "(" & mid(phone,1,3) & ")" & mid(phone,4,3) & "-" & mid(phone,7) elseif Len(phone)>10 then if mid(phone,11,1)="x" then FormatPhone = "(" & mid(phone,1,3) & ")" & mid(phone,4,3) & "-" & mid(phone,7) else FormatPhone = ph end if else FormatPhone = ph end if End Function </source>