Thanx yall. im 12, and excellent at vb but i have no experience in the feild of encryption & decryption. I have from when i started the project this code:

Private Sub text1_keypress(keyascii as Integer)
static a, b, c
if keyascii > 64 and keyascii < 121 then
a = asc(text1.text)
b = chr$(a + 10)
text2.text = b
text1.text = ""
else
keyascii = 0
beep
end if
end sub

but i have no decryption and i know this encryption method is very poor but hey.

,TheVbUser