Getting Numbers From A String?

I know you can just use integer.parse to convert a string to a integer, but I need something else.I have a String like this:

001010000000101

Now what I need to do is place al those digits in a array like this:

Dim example() As Integer = {0,0,1,0,1,0,0,0,0,0,0,0,1,0,1}

What I am doing now is this:

Dim text As String = "001010000000101"
Dim collection(15) As Integer = Nothing
For i = 0 To text.Length - 1

[code]....