Найдите и замените текстовое поле

If TextBox1.Text.Contains("a") Then
        TextBox1.Text = TextBox1.Text.Replace("a", "c")
    End If
Dim Fun_Name as string