VB 6.0 遍历字符串,该怎么解决

VB 6.0 遍历字符串
我现在有一个字符串为 101010 的字符串，现在我要求把他遍历出来！！结果为
1
0
1
0
1
0
现在我的思路是将这个字符串转换成数组，然后在将它用循环迭代出来！！
我现在的问题是不知道怎么样能将它转化成数组！！我看了很多相关函数可是都没有解决
忘各位高手相助
当然我这个思路或许不是唯一的！如果各位高手有别的办法可以帮我实现也非常的感谢！！
我现在很急的用这个了！！
谢谢！！！！

[解决办法]

VB code

dim j() as integerdim i as integerdim h as stringi=1h=101010for i=1 to len(h)j=MID(h,i,1)next i
[解决办法]
VB code
Private Sub Command1_Click()  Dim a As String，i as integer  a = "101010"  For i = 1 To Len(a)      Print Mid(a, i, 1)  Next  End Sub
[解决办法]
VB code
Private Sub Command1_Click()    Dim str As String    str = "101010"    Dim b() As Byte    b = StrConv(str, vbFromUnicode)    Dim i As Long    For i = 0 To UBound(b)        Debug.Print b(i), Chr(b(i))              NextEnd Sub