Find & Replace Problem

I'm trying to do a 'find/replace' sort of thing, but for some reason the Replace function isn't working. It says it cannot be indexed because it has no default property. How do I do the replace correctly?

Here's my code:

Code:

---

Dim aString As String
aString = Replace(DirectCast(Form1.SplitContainer1.ActiveControl, RichTextBox).Text, Me.TextBox1.Text, Me.TextBox2.Text)

---

Are you certain the active control is a RichTextBox when you call that? The way you're ''supposed'' to do it is like so:

Code:

---

RichTextBox1.Text = RichTextBox1.Text.Replace(Me.TextBox1.Text, Me.TextBox2.Text)

---

Yes, it is active. Ah, that's how you do it. Thanks.