Visual Basic - duda existencial???

Hola! Buenos dias! Espero me puedan ayudar, necesito insertar un string de la bd a un array de vb. Es decir, es un string 100100010001.... y yo quiero meter en cada posicion de un array cada elemento del string, y quiero que se guarde como numero pues luego he de realizar operaciones matematicas con el...
No se si me comprenden...

Gracias de antemano

Dim str As String
Dim arr() As Long

' establecer del valor del string tomándolo del registro de la BD (str = algo)

ReDim arr(Len(str)) As Long

For i = 0 To Len(str) - 1
car = Val(Mid(str, i + 1, 1))
arr(i) = car
Next i

gracias por tu ayuda!!