Obtener el Primer Digito de un String

[RootK]

Puedes intentarlo tambien de ésta forma (tomando en cuenta que siempre empieza con una letra)

Dim sAnswers as String
sAnswers = "A1-A9-A14-A20-B2-B5-B8-B19-C3-C7-C10-C13-C15-C18-D4-D6-D11-D12-D16-D17"

Dim items() as String
items = Split(sAnswers, "-")

For i = 0 To UBound(items) - 1
MsgBox Mid(s(i), 2)
Next i

Y con ello ya obtienes solo los numeros.

Saludos