我看你这种方案的Bug实在多，如果原文中也有数字，那又要出错了。
另外你说“abc”变成了“edf”，然后又怎么样呢，这点应该简单。最后还是要还原吧。
要做到你说的转换，只需改掉程序中红色的一行即可。
Private Sub Command1_Click()
Text2.Text = ""
A = (Len(Text1.Text))
For B = 1 To A Step 1
C = UCase(Mid(Text1.Text, B, 1))
D = Asc(C) - 64
If (D <= 26 And D >= 1) Then
E = D Else
If D = (-32) Then
E = " "
Else
E = C
End If
End If
Text2.Text = Text2.Text & E
Next B
End Sub
