Ciao, se la stringa che contiene i numeri ha sempre il tipo di formattazione che hai detto tu, allora per fare una cosa semplice e veloce:
codice:
Dim vettNum() As String
Private Sub EstraiNumeri(strNum As String)
   Dim i As Integer
   Dim vettStr() As String
   vettStr = Split(strNum, "'")
   ReDim vettNum(UBound(vettStr) - 1)
   For i = 0 To UBound(vettStr) - 1
      vettNum(i) = Right$(vettStr(i), 2)
   Next
End Sub
basta richiamare la sub passandogli la tua stringa ad esempio:
codice:
tuaStringa = "FL 40' a 80% + CV 20' a 88% + FM 35' a 90%"
EstraiNumeri(tuaStringa)
e recuperi i numeri dal vettore vettNum


N.B. la stringa puo' contenere quanti numeri vuoi..non ha limiti, l'importante che abbia sempre la stessa formattazione che hai detto tu