VB6 estrarre numeri

[cidific]

  Dim Buffer                      As String
  Dim m_Buffer                    As String
  Dim MyArrNumber()               As String
  Dim FlagIsNumeric               As Boolean
  Dim nElementArry                As Integer
  Dim i                           As Integer
  
  nElementArry = 0
  ReDim MyArrNumber(nElementArry)
  Buffer = "FL 40' a 80% + CV 20' a 88% + FM 35' a 90%"
  
  FlagIsNumeric = False
  
  For i = 1 To Len(Buffer)
    If IsNumeric(Mid(Buffer, i, 1)) Then
      m_Buffer = m_Buffer & Mid(Buffer, i, 1)
      FlagIsNumeric = True
    Else
      If FlagIsNumeric Then
        nElementArry = UBound(MyArrNumber) + 1
        ReDim Preserve MyArrNumber(nElementArry)
        MyArrNumber(nElementArry) = m_Buffer
        m_Buffer = ""
        FlagIsNumeric = False
      End If
    End If
  Next i