TextBox1.Text = Replace(TextBox1.Text, "LOL", "***")

In questo modo sostituiremo la parola LOL con ***
e possiamo effettuarlo anche più di una volta ES:

TextBox1.Text = Replace(TextBox1.Text, "LOL", "***")
TextBox1.Text = Replace(TextBox1.Text, "rotfl", "***")

NOTA: In questo modo l' operazione è case sensitive.
se vogliamo renderla non case bisogna mettere TextBox1.Text.ToLower.

TextBox1.Text = Replace(TextBox1.Text.ToLower, "LOL", "***")


A cura di S. Infante ;)