一个vb小实验是帮我解决？

要求：将输入的原码一律转换为大写字母进行译码，若出现字母以外的其他字符，则显示出错信息。
译码规则：
原码 译码
A G
B H
C I
D J
. .
. .
. .
. .
. .
. .
X D
Y E
Z F

我的代码如下
Private Sub Command1_Click()
Dim i As Integer, n As Integer, a As String, b As String, c As Integer, d As Integer, e As String
a = UCase(Text1.Text)
n = Len(a)
For i = 1 To n
b = Mid(a, i, 1)
c = Asc(b)
If c > 90 Or c < 65 Then
MsgBox "请不要输入字母以外的其他字符！", 48 + vbOKOnly, "译码"
Text2.Text = ""
ElseIf c >= 65 And c <= 84 Then
d = c + 6
e = Chr(d)
Text2.Text = Text2.Text & e
ElseIf c >= 85 And c <= 90 Then
d = c - 20
e = Chr(d)
Text2.Text = Text2.Text & e
End If
Next i
End Sub

它的问题是出错信息MsgBox也跟着循环

帮我解决下VB的一个小问题吧！！ 帮我设计一个vb小程序 帮我解决一个小问题 ，好吗 帮我解决一个小题目，THANK 电脑高手帮我解决一个小问题 VB高手帮我解决一个问题，谢谢~~ 帮我设计一个实验 初学VB,求助解决一个小问题 VB 高手请进：悬赏100分帮我解决一个VB问题 请帮我解决一下这个电脑问题???弹出一个小框框~~~上面写的是....