
Sub Asc()
Text1.Text = Replace(Text1.Text, "a", "â")
Text1.Text = Replace(Text1.Text, "b", "ß")
Text1.Text = Replace(Text1.Text, "c", "Ç")
Text1.Text = Replace(Text1.Text, "d", "ÃÂÂ")
Text1.Text = Replace(Text1.Text, "e", "ë")
Text1.Text = Replace(Text1.Text, "f", "F")
Text1.Text = Replace(Text1.Text, "g", "G")
Text1.Text = Replace(Text1.Text, "h", "H")
Text1.Text = Replace(Text1.Text, "i", "ÃÂÂ")
Text1.Text = Replace(Text1.Text, "j", "J")
Text1.Text = Replace(Text1.Text, "k", "K")
Text1.Text = Replace(Text1.Text, "l", "£")
Text1.Text = Replace(Text1.Text, "m", "M")
Text1.Text = Replace(Text1.Text, "n", "Ñ")
Text1.Text = Replace(Text1.Text, "o", "0")
Text1.Text = Replace(Text1.Text, "p", "þ")
Text1.Text = Replace(Text1.Text, "q", "Q")
Text1.Text = Replace(Text1.Text, "r", "R")
Text1.Text = Replace(Text1.Text, "s", "§")
Text1.Text = Replace(Text1.Text, "t", "T")
Text1.Text = Replace(Text1.Text, "u", "ú")
Text1.Text = Replace(Text1.Text, "v", "V")
Text1.Text = Replace(Text1.Text, "w", "W")
Text1.Text = Replace(Text1.Text, "x", "Ãâ€â€")
Text1.Text = Replace(Text1.Text, "y", "ÃÂÂ")
Text1.Text = Replace(Text1.Text, "z", "Z")
End SubCall Asc



Return to Visual Basic Programming
Users browsing this forum: No registered users and 0 guests