vb在text中输入一个字母，要使其在另一个文本中显示其循环左移2位的结果

vb在text中输入一个字母，要使其在另一个文本中显示其循环左移2位的结果

Private Sub Command1_Click()
a = Asc(Text1.Text)
If Text1.Text >= "A" And Text1.Text <= "Z" Then
If a > 66 Then Text2.Text = Chr(a - 2) Else Text2.Text = Chr(a + 24)
Else
If Text1.Text >= "a" And Text1.Text <= "z" Then
If a > 98 Then Text2.Text = Chr(a - 2) Else Text2.Text = Chr(a + 24)
End If
End If
End Sub

你好的，需要屏蔽回车键吗？

VB6 dim n as integer n=asc(text1.text) '如果是大写字母 if n>=65 and n<= 90 then if n = 65 then Text2.text = "Y" elseif n = 66 then Text2.text = "Z" else Text2.text = CHR(n-2) end if end if '如果是小写字母 if n>=97 and n<= 122 then if n = 97 then Text2.text = "y" elseif n = 98 then Text2.text = "z" else Text2.text = CHR(n-2) end if end if