SoloCodigo

Prueba esta funcion, seguro que te servira:

Public Function ExtraerCaracteres(ByVal strCadena As String) As String
    Dim intMaxCar As Integer
    Dim intCont As Integer
    Dim strCaracteres As String
    Dim strNum As String
    Dim intNum2 As Integer
    intMaxCar = Len(strCadena)
    For intCont = 1 To intMaxCar
        If IsNumeric(Left(strCadena, intCont)) Then
            strNum = Left(strCadena, intCont)
        Else
            intNum2 = intMaxCar - Len(strNum)
            strCaracteres = Right(strCadena, intNum2)
        End If
    Next
    ExtraerCaracteres = strCaracteres
End Function

Un saludo
Sk@keo