求VB如何实现，将TEXT1.TEXT中的文本内容进行处理，每个英文变为A=1.B=2，C=3/...，只有一个文本！

一次运行要全部完成，怎么办啊

'form窗体内放置一个textbox控件
Option Explicit
Private Sub Form_Load()
Dim d As Long, i As Long
Dim T As String, T2 As String, Td As Long
For i = 0 To Asc("Z") - Asc("A")
T = T & Chr(i + 22) & Chr(Asc("A") + i)
Next
Text1 = T
T2 = T
d = Len(Text1.Text)
T = ""
For i = 1 To d
Td = Asc(Mid(T2, i, 1))
T = T & Chr(Td)

If (Td >= Asc("A") And Td <= Asc("Z")) Or (Td >= Asc("a") And Td <= Asc("z")) Then
T = T & "=" & Td - IIf((Td >= Asc("A") And Td <= Asc("Z")), Asc("A"), Asc("a")) + 1
End If
T = T & " "
Next
Text1 = Text1 & T
End Sub

private sub optchange_click() if optchange.value = true then dim s as string s = txt1.text txt1.text = txt2.text txt2.text = s end if end sub private sub optlink_click() if optlink.value = true then txtresult.text = txt1.text & txt2.text end if end sub