[Encrypt/Decrypt] Encrypt 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("a", rand1)
TextBox1.Text = TextBox1.Text.Replace("e", rand2)
TextBox1.Text = TextBox1.Text.Replace("i", rand3)
TextBox1.Text = TextBox1.Text.Replace("o", rand4)
TextBox1.Text = TextBox1.Text.Replace("u", rand5)