Obtener el Primer Digito de un String

[emilio21]

hola amigos!

tengo el siguiente codigo que me permite separar itemes contenidos en una tabla que estan unidos con un -

yo quiero que en un listview me muestre el primer digito de cada uno de los arrays que hace sep(que es el split). aqui el codigo:

Do While Not (tabla.EOF)
Set tabla1 = base.OpenRecordset("SELECT * FROM estructura WHERE cod='" & msg & "'")

sep = Split(tabla1.Fields("respuestas_correctas"), "-")
For i = 1 To tabla.Fields("preguntas")
l.AddItem i
Set list2 = listaA.ListItems.Add(, , i & "")

If l.ItemData(i - 1) = Right(sep(i), 1) Or l.Text = Right(sep(i), 2) Then
list2.SubItems(1) = Left(sep(i), 1) & ""
End If


Next i

tabla1.Close

tabla.MoveNext
Loop

el me devuelve solo en el decimo item el primer digito que le pertenece a este.

graficamente:

este es el listview

Pregunta / Alternativa Correcta
1 'aqui deberia aparecerme el digito que le corresponde al numero de
2 'la pregunta
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

los datos del campo respuestas correctas de la tabla estructura son( de la misma manera como se muestran a continuacion):

A1-A9-A14-A20-B2-B5-B8-B19-C3-C7-C10-C13-C15-C18-D4-D6-D11-D12-D16-D17-