VBA Grenzwerte in String prüfen Regex ??? Excel2010

Dim regex As Object

Sub CheckLimits()
    Dim cell As Range, dblValue As Variant, dblLimit As Variant, c As Variant
    With ActiveSheet
        For Each cell In .Range("E9:P76")  
            dblValue = GetDecimalValue(cell)
            If dblValue <> False Then
                For Each c In Array("Q", "R", "S")  
                    dblLimit = GetDecimalValue(.Cells(cell.Row, c))
                    If dblLimit <> False And dblValue > dblLimit Then
                        cell.Interior.Color = vbRed
                    End If
                Next
            End If
        Next
    End With
End Sub

Function GetDecimalValue(cell As Range)
    On Error GoTo Exception
    If regex Is Nothing Then
        Set regex = CreateObject("vbscript.regexp")  
        regex.IgnoreCase = True
        regex.Pattern = "\d+([,\.]\d+)?"  
    End If
    Set matches = regex.Execute(Trim(cell.Value))
    If matches.Count > 0 Then
        GetDecimalValue = CDbl(matches(0))
        Exit Function
    End If
Exception:
    GetDecimalValue = False
End Function