Recoger nºcaracteres de una cadena

[David]

Esto seria que quiere extraer la parte numerica del String, ahi si se entiende un poco, a ver:

Código:

 
Function TheFunction()
Dim I As Integer
Dim NumericPart As String
For I = 1 To Len("ABC1234")
    If Not IsNumeric(Right("ABC1234",I)) Then
         NumericPart = Right("ABC1234", I-1)
         Exit For
    End If
Next I
TheFunction = Len(Text1) - Len(NumericPart)
End Function