Sustituir email dentro de un texto enviado desde un textarea

[yz!]

Buenas,

Mi intención es que no se puedan introducir emails en el texto de un textarea.

Para ello ejecuto la siguiente funcion sobre la cadena recibida del textarea:

Código:

Public Function BuscaEmail(ByVal Cadena As String) As Variant
    
    Dim regex As Object      ' Create variable.
    Set regex = New RegExp   ' Create a regular expression.

    regex.IgnoreCase = True  ' Set case insensitivity.
    regex.Global = True      ' Set global applicability.
    regex.Pattern = ("[a-z0-9_-]+(?:\.[a-z0-9_-]+)*@[a-z0-9_-]+(?:\.[a-z0-9_-]+)*\.[a-z]{2,6}")   ' Set pattern.
    
    BuscaEmail = "0"
    Dim ma As match
    For Each ma In regex.Execute(Cadena)
        BuscaEmail = "No pueden introducirse direcciones de correo electrónico."
    Next

End Function

Lo que sucede es que solo me devuelve "No pueden introducirse direcciones de correo electrónico." si la cadena coinicde con un correo, no si la cadena contiene un correo.

¿Alguna idea?

[yz!]

Estaba funcionado correctamente, sólo que llamaba a la función incorrectamente.

Solo hab´ria que quitar ciertas clausulas relativas a Visual Basic y no ASP.

Saludos