Public Function GetNumeros(text As String) As Collection
    ' Incluir en las referencias: Microsoft VBScritp Regular Expressions 5.5
    ' Obtener numeros, mediante expresiones regulares. By Raul338
    On Error GoTo err
    Dim cTemp As New Collection
    Dim objRegExp As RegExp
    Dim objMatch As Match
    Dim objMatches
 
    Set objRegExp = New RegExp
    Dim patron As String
 
    'patron = "(\d+)"                            ' Numeros enteros
    'patron = "(\d+(?:[\.,]\d+)?)"                ' Numeros con/sin decimales
    patron = "(\d{1,3}(\.\d{3})+(?:,\d+)?|\d+(?:,\d+)?)"   ' Numeros con separador de miles (.) con/sin decimales (,)
    'patron = "(\d{1,3}(\,\d{3})+(?:\.\d+)?|\d+(?:\.\d+)?)"   ' Numeros con separador de miles (,) con/sin decimales (.)
    'patron = "(\d+[,.]\d+)"                        ' Numeros con decimales
 
    objRegExp.Pattern = patron
    objRegExp.Global = True
 
    Set objMatches = objRegExp.Execute(text)
 
    For Each objMatch In objMatches
        cTemp.Add objMatch.Value
     Next
    Set GetNumeros = cTemp
    Exit Function
err:
    ' Aca tira error en caso de que metan mal la mano en las expresiones regulares xD
End Function
 

Private Sub Form_Load()
    Dim item As Variant
    Dim s As String
    s = "Estoy provando la extracción de números como 1992, también la extracción de números decimales: 3,1415"
    s = s & "Tambien puedo decir que tengo 1000000,24 dolares o 1.123.456,78 euros (?)"
    For Each item In GetNumeros(s)
        Debug.Print item
    Next
End Sub
 

Me aburria

He hecho esta bonita funcion mientras me aburria

Option Explicit
 
Public Function Get_Only_Numbers(ByVal sText As String) As String()
    Const sDecimals             As String = ",.'"
    Dim sNumbersArray()         As String
    Dim sActualChar             As String * 1
    Dim sNextChar               As String * 1
    Dim sPreviousChar           As String * 1
    Dim bAcceptString           As Boolean
    Dim lTotalChar              As Long
    Dim x                       As Long
    Dim y                       As Long
 
    lTotalChar = Len(sText)
    If lTotalChar > 0 Then
        ReDim sNumbersArray(0)
        For x = 1 To lTotalChar
            If x > 1 Then sPreviousChar = Mid$(sText, x - 1, 1)
            sActualChar = Mid$(sText, x, 1): sNextChar = Mid$(sText, x + 1, 1)
            If ((sActualChar = Chr$(45) Or InStr(sDecimals, sActualChar) > 0 And IsNumeric(sPreviousChar)) _
            And IsNumeric(sNextChar)) Or (IsNumeric(sActualChar)) Then
                bAcceptString = True
            Else
                If bAcceptString = True Then y = y + 1: ReDim Preserve sNumbersArray(y): bAcceptString = False
            End If
            If bAcceptString = True Then sNumbersArray(y) = sNumbersArray(y) & sActualChar
        Next x
        Get_Only_Numbers = sNumbersArray()
        Erase sNumbersArray
    End If
End Function
 
Private Sub Form_Load()
    Dim vItem                 As Variant
    Dim sStringToAnalyze      As String
 
    sStringToAnalyze = "Estoy provando la extracción de números como 1992, también la extracción de números decimales: 3,1415 o 3.1415"
    sStringToAnalyze = sStringToAnalyze & "También puedo decir que tengo 1000000,24 dólares o 1.123.456,78 euros (?)"
    sStringToAnalyze = sStringToAnalyze & "Pero mi función también reconoce numeros como el -2344 y 5'567 y no los confunde con m.456 ni con -a89 ... =)"
    For Each vItem In Get_Only_Numbers(sStringToAnalyze): Debug.Print vItem: Next
End Sub