求助：给看下这个简单加密解密程序哪儿出错了？

Question

Private Sub Command1_Click()
    Text2 = ""
   
    lg = Len(Text1)
    For i = 1 To lg
        a$ = Mid(Text1, i, 1)
        b = Asc(a$) + 6        Text2 = Text2 & Chr(b)
    Next
End SubPrivate Sub Command2_Click()
Text3 = ""
    lg = Len(Text2)
    For i = 1 To lg
        a$ = Mid(Text2, i, 1)
            b = Asc(a$) - 6
        Text3 = Text3 & Chr(b)
    Next
End Sub

Answer 1

Private Sub Command1_Click()  Text2 = ""
    
  lg = Len(Text1)
  For i = 1 To lg
  a$ = Mid(Text1, i, 1)
  b = AscW(a$) + 6  Text2 = Text2 & ChrW(b)
  Next
End SubPrivate Sub Command2_Click()
Text3 = ""
  lg = Len(Text2)
  For i = 1 To lg
  a$ = Mid(Text2, i, 1)
  b = AscW(a$) - 6
  Text3 = Text3 & ChrW(b)
  Next
End Sub这样就可以了