'oMatch.SubMatches'

[tom]

Hallo ,

ich bekomme für folgende Function diese Fehlermeldung:

Das Objekt unterstützt diese Eigenschaft oder Methode nicht.: 'oMatch.SubMatches'
Laufzeitfehler in Microsoft VBScript- Fehler '800a01b6'

Was kann ich tun, danke für die Mühe

------------------------------------------------
Function getID(strPat, strStrng)
 Dim regEx          'Variable für regulärer Ausdruck
 Dim oMatches, oMatch     'Collection für Treffer
 Dim Result          'Rückgabewert

Set regEx = New RegExp        'Erzeugt einen regulären Ausdruck
 regEx.Pattern = strPat         'Setzt das Pattern
 regEx.IgnoreCase = True       'Ignoriert Gross/Kleinschreibung
 regEx.Global = True         'reg. Ausdruck trifft nur die erste Ausprägung
 Set oMatches = regEx.Execute(strStrng)
 For Each oMatch in oMatches        'Iterate Matches collection.
   Result = oMatch.SubMatches(0)     'erster Sub Treffer des Patterns
    getID = Result
    Exit Function
  Next
     'Nichts gefunden
   Result = -1
   getID = Result
End Function