编写程序，实现对任意字符串的加密和解密操作

Dim a() As String, b() As Integer, n As Integer Text2 = "" n = Len(Text1) ReDim a(n) ReDim b(n + 3) For i = 1 To n a(i) = Mid(Text1, i, 1) If (Asc(a(i)) >= 65 And Asc(a(i)) = 97 And Asc(a(i)) <= 122) Then b(i) = Asc(a(i)) + 3 If b