Dim objRegex As New RegExp
    Dim objMatches As MatchCollection
    Dim objMatch As Match
    Dim i As Integer
    Dim strText As String
    
    objRegex.Global = True
    objRegex.Pattern = "(\d*).(\d*)"

    Set objMatches = objRegex.Execute("125.298")
    
    strText = "Matches: " & CStr(objMatches.Count) & vbCrLf
    i =  1 
    For Each objMatch In objMatches
        strText = strText & vbCrLf & "Match " &_
          CStr(i) & ": first index " & CStr(objMatch.FirstIndex) &_
          ", length " & CStr(objMatch.Length) & ", value " &_
          objMatch.Value
        i = i +  1 
    Next
    MsgBox strText