textbox find and replace vb code example

Example: textbox find and replace vb

If TextBox1.Text.Contains("a") Then
        TextBox1.Text = TextBox1.Text.Replace("a", "c")
    End If