求救各位大神！怎么编写筛选语句

Private Sub 筛选_Click()
'　大写字母的ASCII码范围是：65 ～ 90 ；
'　小写字母的ASCII码范围是：97 ～122 ；
'　小写元音字母的ASCII是：a—97、e—101、i—105、o—111、u—117 。
'　数字的ASCII码范围是：48 ～ 57 。
Dim n%, i%, j%, cc$
cc = Trim(Text1.Text)
n = Len(cc)
大写.Text = "" : 小写.Text = ""
元音.Text = "" : 数字.Text = ""
For i = 1 To n
j = Asc(Mid$(cc, i, 1))
If j >= 65 And j <= 90 Then
大写.Text = 大写.Text & Chr(j)
ElseIf j >= 97 And j <= 122 Then
小写.Text = 小写.Text & Chr(j)
If j = 97 or j = 101 or j = 105 or j = 117 Then
元音.Text = 元音.Text & Chr(j)
End If
ElseIf j >= 48 And j <= 57 Then
数字.Text = 数字.Text & Chr(j)
End If
Next i
End Sub