eu também preciso disso, só que é no RichTextBox

If TextBox1.Text.ToLower.Contains("palavra") Then
TextBox1.Text = TextBox1.Text.Replace("Palavra", "Nova Palavra")
End If

Use isso.

Nadaila escreveu: If TextBox1.Text.ToLower.Contains("palavra") Then
TextBox1.Text = TextBox1.Text.Replace("Palavra", "Nova Palavra")
End If

Use isso.

E no vb6 como faz isso?

Dim count as byte
Dim start as byte
count = 1
start = 1

TextBox1.Text = Replace(TextBox1.Text, "Palavra", "Nova Palavra", start, count, 0)

Count quer dizer o número de buscas, caso seja 2 irá substituir 2 palavras começando na primeira letra do texto (start). E o 0 no final, quer dizer o tipo de comparação como eu não uso mais o visual basic 6. Não sei qual valor se usa, por padrão deixo em 0.

Obrigado, se as 2 dúvidas foram solucionadas, então tópico trancado.

+ 2 créditos pro Nadaila