VB中的加密问题

请注明为什么这样做谢谢

实现对任意字符串的加密和解密操作其中，对大小写英文字母的加密规则为：A→D，B→E，C→F，……，M→P，N→Q，……，W→Z，X→A，Y→B，Z→C；其他字符保持原样不变
当在text1中输入需要加密的源文后，单击“加密”按钮，得到密文，并显示在text2中；当在text3中输入需要解密的密文后，单击“解密”按钮，得到源文，并显示在text4中
请用vb编写

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

把字符的ASCII码加3就可以了，解密反过来。代码不长，自己做吧。

Private Sub Command1_Click()
Text2.Text = ""
For i = 1 To Len(Text1.Text)
C = (Mid(Text1.Text, i, 1))
A = Asc(C)
If A >= 65 And A <= 90 Then
Text2.Text = Text2.Text & Chr(IIf((A + 3) > 90, A + 3 - 26, A + 3))
Else
Text2.Text = Text2.Text & C
End If
Next
End Sub

Private Sub Command2_Click()
Text4.Text = ""
For i = 1 To Len(Text3.Text)
C = (Mid(Text3.Text, i, 1))
A = Asc(C)
If A >= 65 And A <= 90 Then