Quote Originally Posted by Deepak Sakpal
Use Chr(Asc("@"c)) like this:

MessageBox.Show("""" & Chr(Asc("@"c)) & "%""")
This doesn't work in the designer, the other post worked though.