输入一段英文，找出字母a出现次数最多的英文单词，写出相应的代码，用VB语言写

Private Sub Command1_Click()
Dim X$, Y$, I%, T%, K%, P%, Max%, M%
Dim AP$(), ZS%()
X = Trim(Text1.Text) & " " '空格不能去
T = Len(Text1.Text)
Y = 1
I = 1
ReDim AP$(T)
Do While I <= T
If Asc(Mid(X, I, 1)) = 32 Then
P = P + 1
AP(P) = Mid(X, Y, K)
Y = I + 1
K = 0
Else
K = K + 1
End If
I = I + 1
Loop
ReDim ZS%(P)
For I = 1 To P
For J = 1 To Len(AP(I))
If Asc(Mid(AP(I), J, 1)) = 97 Or Asc(Mid(AP(I), J, 1)) = 65 Then ZS(I) = ZS(I) + 1
Next J
Next I
Max = ZS(1)
For I = 2 To P
If Max < ZS(I) Then
Max = ZS(I)
M = I
End If
Next I
MsgBox AP(M) & "的a字母最多！" & vbCrLf & "有" & ZS(M) & "个", vbExclamation, "提示"
End Sub
PS：缺点：如果下面有个跟上面的一样多的就会无视

ads hsfa asdfasdeadaaaswdf dsasfgsha sdwerfavcdh dass apples syfgsa yfsa seea rsesas and aaugdd hdge VB:djr*09ruig}|u^%$gvf