Simple Replace Text In TextBox - Help Needed

[help3212]

Here is what i have so far

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim r As New Random
        Label1.Text = r.Next(1, 5)



        If Label1.Text = "1" Then
            RichTextBox1.Text = Replace(RichTextBox1.Text, TextBox1.Text, "resgg")
        ElseIf Label1.Text = "2" Then
            RichTextBox1.Text = Replace(RichTextBox1.Text, TextBox1.Text, "thnks")
        ElseIf Label1.Text = "3" Then
            RichTextBox1.Text = Replace(RichTextBox1.Text, TextBox1.Text, "please")
        ElseIf Label1.Text = "4" Then
            RichTextBox1.Text = Replace(RichTextBox1.Text, TextBox1.Text, "overs")
        ElseIf Label1.Text = "5" Then
            RichTextBox1.Text = Replace(RichTextBox1.Text, TextBox1.Text, "tester")

        End If

At the moment i have to enter text in Textbox1 that i want to replace, and then when i click the button it will replace it with a random entry from the list.


That's great but ideally i want a solution where i can select text in the RichTextBox1 between markers like * or / and replace the chosen text on every button click, not just once.

At the moment it replaces text in the RichTextBox1 only once. I need it to do it every time i click the button.


It is for a content rewriter.

Any help greatly appreciated.