Hola Agaletto,
Tengo que confeccionar un función como la que tu necesitas. Piensa que se tendrá que tratar la cadena con lupa pues un teléfono te lo pueden enviar 666 666 666, 66 666 66 66, 666666666, etc.
Es decir que se tendrá que tratar de varias maneras.
Para la misma funcion que estoy creando también tengo que incluir que la funcion bloquee a parte de los numeros de teléfono, paginas web i emails.
Cita: Function filtra_URL(byval str)
Dim comienzo, strurl
do While (instr(str,"http://")>0) or (instr(str,"www.")>0)
strurl=""
'Calculamos la pos. del comienzo de la URL
comienzo=instr(str,"http://")
if comienzo=0 then
comienzo=instr(str,"www.")
End if
'Construimos la URL detectada
Do while (mid(str, comienzo, 1)<>" ") and (comienzo<>len(str)+1)
strurl=strurl+mid(str, comienzo, 1)
comienzo=comienzo+1
Loop
'y la reemplazamos en la cadena original
str=replace(str,strurl,"[contenido bloqueado]")
'vamos a por la siguiente en caso que exista
Loop
filtra_URL=str
End Function
No he tenido mucho tiempo para finalizar esta función. Te copio el poco código que he elavorado por si te puede servir de algo.
Un saludo