title: How to replace letters on a textbox using vb.net
body: <p>I want to replace every letter or number on a textbox using vb.net this was my first try, but it only replaces one letter at a time</p>
  
  <pre><code> Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
      Select Case True
          Case TextBox1.Text.Contains("a")
              TextBox1.Text = TextBox1.Text.Replace("a", "c")
          Case TextBox1.Text.Contains("b")
              TextBox1.Text = TextBox1.Text.Replace("b", "d")
          Case TextBox1.Text.Contains("c")
              TextBox1.Text = TextBox1.Text.Replace("c", "e")
          Case TextBox1.Text.Contains("d")
              TextBox1.Text = TextBox1.Text.Replace("d", "f")
          Case TextBox1.Text.Contains("e")
              TextBox1.Text = TextBox1.Text.Replace("e", "g")
          Case TextBox1.Text.Contains("f")
              TextBox1.Text = TextBox1.Text.Replace("f", "h")
          Case TextBox1.Text.Contains("g")
              TextBox1.Text = TextBox1.Text.Replace("g", "i")
          Case TextBox1.Text.Contains("h")
              TextBox1.Text = TextBox1.Text.Replace("h", "j")
          Case TextBox1.Text.Contains("i")
              TextBox1.Text = TextBox1.Text.Replace("i", "k")
          Case TextBox1.Text.Contains("j")
              TextBox1.Text = TextBox1.Text.Replace("j", "l")
          Case TextBox1.Text.Contains("k")
              TextBox1.Text = TextBox1.Text.Replace("k", "m")
          Case TextBox1.Text.Contains("l")
              TextBox1.Text = TextBox1.Text.Replace("l", "n")
          Case TextBox1.Text.Contains("m")
              TextBox1.Text = TextBox1.Text.Replace("m", "o")
          Case TextBox1.Text.Contains("n")
              TextBox1.Text = TextBox1.Text.Replace("n", "p")
          Case TextBox1.Text.Contains("o")
              TextBox1.Text = TextBox1.Text.Replace("o", "q")
          Case TextBox1.Text.Contains("p")
              TextBox1.Text = TextBox1.Text.Replace("p", "r")
          Case TextBox1.Text.Contains("q")
              TextBox1.Text = TextBox1.Text.Replace("q", "s")
          Case TextBox1.Text.Contains("r")
              TextBox1.Text = TextBox1.Text.Replace("r", "t")
          Case TextBox1.Text.Contains("s")
              TextBox1.Text = TextBox1.Text.Replace("s", "u")
          Case TextBox1.Text.Contains("t")
              TextBox1.Text = TextBox1.Text.Replace("t", "v")
          Case TextBox1.Text.Contains("u")
              TextBox1.Text = TextBox1.Text.Replace("u", "w")
          Case TextBox1.Text.Contains("v")
              TextBox1.Text = TextBox1.Text.Replace("v", "x")
          Case TextBox1.Text.Contains("w")
              TextBox1.Text = TextBox1.Text.Replace("w", "y")
          Case TextBox1.Text.Contains("x")
              TextBox1.Text = TextBox1.Text.Replace("x", "z")
          Case TextBox1.Text.Contains("y")
              TextBox1.Text = TextBox1.Text.Replace("y", "a")
          Case TextBox1.Text.Contains("z")
              TextBox1.Text = TextBox1.Text.Replace("z", "b")
  
      End Select
  End Sub
  </code></pre>
  
  <p>This isn't what I want, so I tried this</p>
  
  <pre><code>   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
  
      If TextBox1.Text.Contains("a") Then
          TextBox1.Text = TextBox1.Text.Replace("a", "c")
      End If
  
      If TextBox1.Text.Contains("b") Then
          TextBox1.Text = TextBox1.Text.Replace("b", "d")
      End If
  
      If TextBox1.Text.Contains("c") Then
          TextBox1.Text = TextBox1.Text.Replace("c", "e")
      End If
  
      If TextBox1.Text.Contains("d") Then
          TextBox1.Text = TextBox1.Text.Replace("d", "f")
      End If
  
      If TextBox1.Text.Contains("e") Then
          TextBox1.Text = TextBox1.Text.Replace("e", "g")
      End If
  
      If TextBox1.Text.Contains("f") Then
          TextBox1.Text = TextBox1.Text.Replace("f", "h")
      End If
  
      If TextBox1.Text.Contains("g") Then
          TextBox1.Text = TextBox1.Text.Replace("g", "i")
      End If
  
      If TextBox1.Text.Contains("h") Then
          TextBox1.Text = TextBox1.Text.Replace("h", "j")
      End If
  
      If TextBox1.Text.Contains("i") Then
          TextBox1.Text = TextBox1.Text.Replace("i", "k")
      End If
  
      If TextBox1.Text.Contains("j") Then
          TextBox1.Text = TextBox1.Text.Replace("j", "l")
      End If
  
      If TextBox1.Text.Contains("k") Then
          TextBox1.Text = TextBox1.Text.Replace("k", "m")
      End If
  
      If TextBox1.Text.Contains("l") Then
          TextBox1.Text = TextBox1.Text.Replace("l", "n")
      End If
  
      If TextBox1.Text.Contains("m") Then
          TextBox1.Text = TextBox1.Text.Replace("m", "o")
  
      End If
  
      If TextBox1.Text.Contains("n") Then
          TextBox1.Text = TextBox1.Text.Replace("n", "p")
      End If
  
      If TextBox1.Text.Contains("o") Then
          TextBox1.Text = TextBox1.Text.Replace("o", "q")
      End If
  
      If TextBox1.Text.Contains("p") Then
          TextBox1.Text = TextBox1.Text.Replace("p", "r")
      End If
  
      If TextBox1.Text.Contains("q") Then
          TextBox1.Text = TextBox1.Text.Replace("q", "s")
      End If
  
      If TextBox1.Text.Contains("r") Then
          TextBox1.Text = TextBox1.Text.Replace("r", "t")
      End If
  
      If TextBox1.Text.Contains("s") Then
          TextBox1.Text = TextBox1.Text.Replace("s", "u")
      End If
  
      If TextBox1.Text.Contains("t") Then
          TextBox1.Text = TextBox1.Text.Replace("t", "v")
      End If
  
      If TextBox1.Text.Contains("u") Then
          TextBox1.Text = TextBox1.Text.Replace("u", "w")
      End If
  
      If TextBox1.Text.Contains("v") Then
          TextBox1.Text = TextBox1.Text.Replace("v", "x")
      End If
  
      If TextBox1.Text.Contains("w") Then
          TextBox1.Text = TextBox1.Text.Replace("w", "y")
      End If
  
      If TextBox1.Text.Contains("x") Then
          TextBox1.Text = TextBox1.Text.Replace("x", "z")
      End If
  
      If TextBox1.Text.Contains("y") Then
          TextBox1.Text = TextBox1.Text.Replace("y", "a")
      End If
  
      If TextBox1.Text.Contains("z") Then
          TextBox1.Text = TextBox1.Text.Replace("z", "b")
      End If
  
  
  End Sub
  </code></pre>
  
  <p>It doesn't work either, just with a letter at a time.</p>
  
  <p>I want to be able to write in a textbox for example "bike" and it replaces the text in the same textbox (or other textbox) in this case: "dkmg" but I can't see where the problem is.</p>