Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim rand1 As String 'This tells the program that the rand1 is a new string
- Dim rand2 As String
- Dim rand3 As String
- Dim rand4 As String
- Dim rand5 As String
- rand1 = "ageh2e" 'This is assigning value to each strings
- rand2 = "878zwh2"
- rand3 = "kknaefh31"
- rand4 = "*aje!#$1n@3"
- rand5 = "@$^!adfgag3%ra33"
- TextBox1.Text = TextBox1.Text.Replace("a", rand1) 'This replaces all the letter A on the value of strings you assigned
- TextBox1.Text = TextBox1.Text.Replace("e", rand2) ' You can do this onto all letter from a-z
- TextBox1.Text = TextBox1.Text.Replace("i", rand3)
- TextBox1.Text = TextBox1.Text.Replace("o", rand4)
- TextBox1.Text = TextBox1.Text.Replace("u", rand5)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement