Separar texto de numeros

[David]

Entonces cambia un poco la situación, tal vez convendría usar una expresión regular:

Código vb:

Dim regExp As Object
Dim Texto As String
Texto = "Cualquier texto con numeros 125"
Set regExp = CreateObject("VBScript.RegExp")
regExp.Pattern = "(\d+)"
If regExp.Test(Texto) Then
    MsgBox regExp.Execute(Texto)(0).Value
End If
Set regExp = Nothing