Hola, vaya mi aportación, quizá esta función la entiendan un poco mejor, es bastante sencilla:
Function NoFull(cCadena)
Dim i, cMal
cMal = Array("tarado", "botarate", "zafio", "cretino", "pintamonas")
For i = 0 To 4
cCadena = Replace(cCadena, cMal(i), String(Len(cMal(i)), "*"))
Next
NoFull = cCadena
End Function
Espero ayude, un saludo. ;)
<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>