[Encrypt/Decrypt] Decrypt Function

  Dim rand1 As String
  Dim rand2 As String
  Dim rand3 As String
  Dim rand4 As String
  Dim rand5 As String
  rand1 = "ageh2e"
  rand2 = "878zwh2"
  rand3 = "kknaefh31"
  rand4 = "*aje!#$1n@3"
  rand5 = "@$^!adfgag3%ra33"

  TextBox1.Text = TextBox1.Text.Replace(rand1, "a")
  TextBox1.Text = TextBox1.Text.Replace(rand2, "e")
  TextBox1.Text = TextBox1.Text.Replace(rand3, "i")
  TextBox1.Text = TextBox1.Text.Replace(rand4, "o")
  TextBox1.Text = TextBox1.Text.Replace(rand5, "u")
  TextBox1.Text = TextBox1.Text.Replace(rand1, "a")
  TextBox1.Text = TextBox1.Text.Replace(rand2, "e")
  TextBox1.Text = TextBox1.Text.Replace(rand3, "i")
  TextBox1.Text = TextBox1.Text.Replace(rand4, "o")
  TextBox1.Text = TextBox1.Text.Replace(rand5, "u")