Ayuda con string(recuperar numero)

[flexjax]

Hola, necesito recuperar un número de un string y no se como hacerlo.. por favor algún ejemplo o ayuda
gracias

pd: el sting es algo así
□□Yinicial = □□ 4 □□Yfinal =□□159□□

y necesito por ejemplo el numero de Yfinal (159)

[bubilo]

MIRA SI EL STRING SIEMPRE TIENE EL MISMO TAMAÑO PODES HACERLO ASI

Dim numero as integer
numero = val(Left(Right(acavaelstring, 5), 3))

Y SI CAMBIA CONSTANTEMENTE DE TAMAÑO PREGUNTA A OTRO PORQUE YO NO TENGO NI IDEA.. JEJE

[jc_moty]

Por si la cadena es de tamaño variable, podrias hacerlo asi:

Código:

Dim num, letra, nuevoNum As String
num = "abcdef325ghijkl"
For i = 1 To Len(num)
    letra = Mid(num, i, 1)
    If letra >= Chr(48) And letra <= Chr(57) Then
        nuevoNum = nuevoNum & letra
    End If
Next i
MsgBox Val(nuevoNum)

Espero te sirva
Saludos

[flexjax]

Excelente!!! me funciono a la perfección
GRACIAS!