vb.net bul ve değiştir

        TextBox1.Text = TextBox1.Text.Replace("b", "a")
        TextBox1.Text = TextBox1.Text.Replace("d", "b")
        TextBox1.Text = TextBox1.Text.Replace("e", "d")
        TextBox1.Text = TextBox1.Text.Replace("f", "e")
        TextBox1.Text = TextBox1.Text.Replace("g", "f")
        TextBox1.Text = TextBox1.Text.Replace("h", "g")
        TextBox1.Text = TextBox1.Text.Replace("ı", "h")
        TextBox1.Text = TextBox1.Text.Replace("i", "ı")
        TextBox1.Text = TextBox1.Text.Replace("j", "i")
        TextBox1.Text = TextBox1.Text.Replace("k", "j")
        TextBox1.Text = TextBox1.Text.Replace("l", "k")
        TextBox1.Text = TextBox1.Text.Replace("m", "l")
        TextBox1.Text = TextBox1.Text.Replace("n", "m")
        TextBox1.Text = TextBox1.Text.Replace("o", "n")
        TextBox1.Text = TextBox1.Text.Replace("ö", "o")
        TextBox1.Text = TextBox1.Text.Replace("p", "ö")
        TextBox1.Text = TextBox1.Text.Replace("r", "p")
        TextBox1.Text = TextBox1.Text.Replace("s", "r")
        TextBox1.Text = TextBox1.Text.Replace("t", "s")
        TextBox1.Text = TextBox1.Text.Replace("u", "t")
        TextBox1.Text = TextBox1.Text.Replace("ü", "u")
        TextBox1.Text = TextBox1.Text.Replace("v", "ü")
        TextBox1.Text = TextBox1.Text.Replace("y", "v")
        TextBox1.Text = TextBox1.Text.Replace("z", "y")
        TextBox1.Text = TextBox1.Text.Replace("a", "z")

Bu kod örneğini şuna dönüştürebilirmiyiz:

 TextBox1.Text = TextBox1.Text.Replace(("b", "a") , ("d", "b")...)

farklı zamanlarda değştirince hepsi "aaa" olarak çkıyor...