EXTRAER CANTIDAD DE CELDA

¡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.