Como eliminar direccion web de un texto

[menxucp27]

Hola a todos...

Existe alguna función para comprobar si en una cadena de texto hay escrita alguna direccion web???

En mi web tengo un formulario con un textbox donde no esta permitido escribir direcciones web y tenemos que revisar uno por uno todos los envios.... es un poco pesado (sin el poco)

He encontrado esta otra funcion que encuentra mails dentro de un texto y los reemplaza:

function find_email(text)
dim arraytext
arraytext = split(text," ",-1,1)
email_addresses = filter(arraytext, "@", true, vbtextcompare)

for each field in email_addresses
text = replace(text, field, "<b>*correo eliminado*</b>")
next
find_email = text
end function

Gracias a todosssssssssss