Sub RegularTest()
Dim s As String
s = "12asd34"
Dim myRegExp As Object
Dim mMatches As Object
Dim mMatch As Object
sumValueInText = 0
Set mRegExp = CreateObject("Vbscript.Regexp")
With mRegExp
.Global = True
.IgnoreCase = True
.Pattern = "([0-9])?[.]([0-9])+|([0-9])+"
Set mMatches = .Execute(s)
For Each mMatch In mMatches
sumValueInText = sumValueInText + CDbl(mMatch.Value)
Next
End With
MsgBox sumValueInText
Set mRegExp = Nothing
Set mMatches = Nothing
End Sub