Option Explicit On
' Требуется ссылка на библиотеку
' Microsoft VBScript Regular Expressions 5.5
' в пункте меню Tool > References
 
Public Function GetNumber(source As Range) As String
    Dim result As String
    Dim regexOne As Object
    Dim theMatches As Object
 
    Set regexOne = New RegExp
 
    regexOne.Pattern = "[-]?\d+[\.\,]?\d+"
 
    Set theMatches = regexOne.Execute(source.Text)
 
    If theMatches.Count <> 0 Then
        result = theMatches.Item(0).Value
    Else
        result = ""
    End If
 
    GetNumber = result
 
End Function