初学者编程问题

请用VB编写一个程序，将字符做如下分类。

大写字母：A……Z；小写字母：a……z；数字：0……9；其他字符。

谢谢了！

Private Sub Command1_Click()
Dim i As Long
For i = 1 To Len(Text1.Text)
 '把A到Z存在text2中
 If Asc(Mid(Text1.Text, i, 1)) >= 65 And Asc(Mid(Text1.Text, i, 1)) <= 90 Then
   Text2.Text = Text2.Text + Mid(Text1.Text, i, 1)
'把a到z存在text3中
 ElseIf Asc(Mid(Text1.Text, i, 1)) >= 97 And Asc(Mid(Text1.Text, i, 1)) <= 122 Then
   Text3.Text = Text3.Text + Mid(Text1.Text, i, 1)
 '把数字存在text4中
 ElseIf Asc(Mid(Text1.Text, i, 1)) >= 48 And Asc(Mid(Text1.Text, i, 1)) <= 57 Then
   Text4.Text = Text4.Text + Mid(Text1.Text, i, 1)
 Else
   Text5.Text = Text5.Text + Mid(Text1.Text, i, 1)
 End If
 Next i
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub