Retirei esse script que valida nº de tel da claro no site:

 

 function twtelefoneClaro()
 {
  validos = "1176,1191,1192,1193,1194,1290,1291,1292,1293,1294,1390,1391,1392,1393,1394,1490,1491,1492,1493,1494,1590,1591,1592,1593,1594,1690,1691,1692,1693,1694,1790,1791,1792,1793,1794,1890,1891,1892,1893,1894,1910,1911,1912,1914,1916,1990,1991,1992,1993,1994,2190,2191,2192,2193,2194,2290,2291,2292,2293,2294,2490,2491,2492,2493,2494,2790,2791,2792,2793,2794,2890,2891,2892,2893,2894,3184,3284,3384,3484,3584,3784,3884,4188,4288,4388,4488,4588,4688,4788,4888,4988,5191,5192,5193,5194,5391,5392,5393,5394,5491,5492,5493,5494,5591,5592,5593,5594,6190,6191,6192,6193,6194,6195,6290,6291,6292,6293,6294,6390,6391,6392,6393,6394,6490,6491,6492,6493,6494,6590,6591,6592,6593,6594,6690,6691,6692,6693,6694,6790,6791,6792,6793,6794,6890,6891,6892,6893,6894,6990,6991,6992,6993,6994,7181,7381,7481,7581,7781,7981,8191,8192,8193,8194,8291,8292,8293,8294,8391,8392,8393,8394,8491,8492,8493,8494,8591,8592,8593,8594,8691,8692,8693,8694,8791,8792,8793,8794,8891,8892,8893,8894,8991,8992,8993,8994,";
  numero  = String(parseInt(document.Main.ddd_para.value) * 100 + parseInt(document.Main.telefone_para.value.substring(0,2)));
  if (numero.length == 3) {
   numero = "0" + numero;
  }

  if (validos.indexOf(numero) == -1)
  {
   return false;
  }
  else
  {
   return true;
  }
 }

 

Alguém sabe converter isso p a linguagem do vb

Public Function TelefoneClaro(DDD As String, Numero As String) As Boolean
Dim validos
validos = Split("1176,1191,1192,1193,1194,1290,1291,1292,1293,1294,1390,1391,1392,1393,1394,1490,1491,1492,1493,1494,1590,1591,1592,1593,1594,1690,1691,1692,1693,1694,1790,1791,1792,1793,1794,1890,1891,1892,1893,1894,1910,1911,1912,1914,1916,1990,1991,1992,1993,1994,2190,2191,2192,2193,2194,2290,2291,2292,2293,2294,2490,2491,2492,2493,2494,2790,2791,2792,2793,2794,2890,2891,2892,2893,2894,3184,3284,3384,3484,3584,3784,3884,4188,4288,4388,4488,4588,4688,4788,4888,4988,5191,5192,5193,5194,5391,5392,5393,5394,5491,5492,5493,5494,5591,5592,5593,5594,6190,6191,6192,6193,6194,6195,6290,6291,6292,6293,6294,6390,6391,6392,6393,6394,6490,6491,6492,6493,6494,6590,6591,6592,6593,6594,6690,6691,6692,6693,6694,6790,6791,6792,6793,6794,6890,6891,6892,6893,6894,6990,6991,6992,6993,6994,7181,7381,7481,7581,7781,7981,8191,8192,8193,8194,8291,8292,8293,8294,8391,8392,8393,8394,8491,8492,8493,8494,8591,8592,8593,8594,8691,8692,8693,8694,8791,8792,8793,8794,8891,8892,8893,8894,8991,8992,8993,8994,", ",")
DDD = CInt(DDD) * 100
Numero = DDD + CInt(Mid(Numero, 1, 2))
For i% = 0 To UBound(validos)
    If validos(i%) = Numero Then
       TelefoneClaro = True
       Exit Function
    End If
Next i%
TelefoneClaro = False
End Function

Value kara, vc é bom mesmo!