承蒙wave指教,再問個問題.(編號：5783)

下面這段程式是wave提供的,謹此致謝
Dim aa() As String
Dim I As Integer
　　aa = Split(Text1.Text, " ")
　　For I = 0 To UBound(aa)
　　　　Print aa(I)
　　Next
以上程式我試過了,可以將Text中的所有字母抓出來,可是卻不能夠將其個別的抓出來.
Ex:"ABC"-＞"ABC",可是我想要將其分開為"A","B","C"三個字母,請問要如何的修改呢?