function FSelect_Phone(str_num)
  dim len_number
  dim i
  dim flag
  dim strCo
  dim Len_strCo
  dim strConInt
  dim ch
  
  flag=0
  i=1
  len_number=len(str_num) 
  do while len_number>0
      strCo="" 
      do while mid(str_num,i,1)<>";"
      
           ch=mid(str_num,i,1)
          if Asc(ch)<> 35 and Asc(ch)<> 38 then 
             'msgbox strCo
             strCo = strCo + ch
          end if   
          i=i+1
          len_number=len_number-1
          
      loop
      i=i+1
      len_number=len_number-1
      'msgbox strCo
      strConInt=cint(strCo)
      'msgbox strConInt
      if strConInt>=1776 and strConInt<=1785 then
         flag=1
      elseif strConInt=40 then
         flag=1
      elseif strConInt=41 then
         flag=1
      elseif strConInt=1600 then '_
         flag=1
      elseif strConInt=45 then '-
         flag=1      
      else
         flag=0 
         exit do  
      end if
  loop 
  FSelect_Phone=flag    
end function