Visual Basic - dudilla

Hola ! Antes de nada gracias por prestarme su tiempo!
Estoy realizando una aplicacion en la que tengo que utilizar la funcion mid para ir recorriendo uno a uno las letras de un String de la BD
Ese string es una secuencia de 0y 1, es decir el string, por ejem, seria "1110000111"
Yo quiero recorrer ese string y guardar en un array cada una de las letras pero como numero, no se si me explico.
Yo tengo hecho lo siguiente

For j = 0 To LargoSint(DESDE 0 A 39)
SintomaD = Mid(SintDolencia, j + 1, 1)
Dolencia(i).sint(j) = Val(SintomaD)
Next j
pero no me hace lo que quiero!!!

Muchas gracias por su ayuda

prueba con los siguiente

Dim sintDolencia As String, j As Integer, Dolencia() As Integer
sintDolencia = "1110000111"
ReDim Dolencia(Len(sintDolencia) - 1)
For j = 1 To Len(sintDolencia)
SintomaD = Mid(sintDolencia, j, 1)
Dolencia(j - 1) = Val(SintomaD)
Next j