Aqui te anexo una función que uso para este fin. Solo debes cambiar y/o agregar las palabras prohibidas en el arreglo:
Código:
Function filtrar(byVal strYourString)
Dim arrBadLanguageWords(13) ' OJO..ADAPTAR AL NUMERO DE PALABRAS DEL ARREGLO
Dim I
'-------------[ Arreglo de palabras prohibidas ]-----------------------
arrBadLanguageWords(0) = "hotmail"
arrBadLanguageWords(1) = "yahoo"
arrBadLanguageWords(2) = "correo"
arrBadLanguageWords(3) = ".com"
arrBadLanguageWords(4) = ".net"
arrBadLanguageWords(5) = "telefono"
arrBadLanguageWords(6) = "teléfono"
arrBadLanguageWords(7) = "mensaje"
arrBadLanguageWords(8) = "texto"
arrBadLanguageWords(9) = "@"
arrBadLanguageWords(10) = "arroba"
arrBadLanguageWords(11) = "hot "
arrBadLanguageWords(12) = "mail"
arrBadLanguageWords(13) = "aroba"
cadena = strYourString
For Each I in arrBadLanguageWords
cadena = Replace(lcase(cadena),I," EDITADO ")
Next
filtrar = cadena
End Function