excel vba find and replace text in shape code example

Example: find and replace textbox

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