¡Hola, Medina!
Prueba con la siguiente función:
Public Function Cantidad(sTexto As String) As Long
Dim iPos As Integer, iPos2 As Integer
iPos = 1
iPos2 = InStr(iPos + 1, sTexto, " ")
Do While iPos
If iPos2 = 0 Then iPos2 = Len(sTexto) + 1
If Val(Mid$(sTexto, iPos, iPos2 - iPos)) Then
Cantidad = Val(Mid$(sTexto, iPos, iPos2 - iPos))
Exit Do
End If
iPos = iPos2
iPos2 = InStr(iPos + 1, sTexto, " ")
Loop
End Function
La función está pensada para números enteros de hasta 9 cifras. Si
quieres que acepte decimales o números de mayor longitud tendrás que
adaptar el código a tus necesidades.
Suponiendo que la cadena está en la celda A1, escribe en la celda B1:
=Cantidad(A1)
Espero que te sirva de ayuda.
Un saludo,
Ignacio.