private sub Command1_Click()
s=text1.text
n=len(s)
for i = 1 to n
s1 = s1 & chr((asc(mid(s,i,1))-62) mod 26 + 65)
next i
text2.text = s1
end sub

private sub Command2_Click()
s=text3.text
n=len(s)
for i = 1 to n
s1 = s1 & chr((asc(mid(s,i,1))-42) mod 26 + 65)
next i
text4.text = s1
end sub