VBA: Layer für Suche vorgeben

Hallo,

ich habe eine Flurstückssuche auf Basis eines Beispieles aus dem Internet programmiert. Das funktioniert so lange ich keine gruppierten Layer verwende. Dann gibt es eine Fehlermeldung (Tyen unverträglich).

Hier ist der verwendete Code:

Dim pMxDoc As IMxDocument
Dim pMap As IMap
Dim pActiveView As IActiveView
Dim pFeatureLayer As IFeatureLayer
'Dim pFeatureSelection As IFeatureSelection
'Dim pQueryFilter As IQueryFilter
Set pMxDoc = ThisDocument
Set pMap = pMxDoc.FocusMap '
Set pActiveView = pMap
Dim LayerFound As Boolean
LayerFound = False



Dim pDataset As IDataset
Dim pFeatureLayer1 As IFeatureLayer
Dim x As Long
Dim pMatchLayer As ILayer


For x = 0 To pMap.LayerCount - 1

Set pMatchLayer = pMap.Layer(x)

Set pFeatureLayer1 = pMatchLayer
Set pDataset = pFeatureLayer1.FeatureClass
If UCase(pMatchLayer.Name) = UCase("Flächen") Then
LayerFound = True
Exit For
End If
Next


Gibt es eine Alternative? Der Name des Layer ist bekannt. Kann ich den Layer auf eine andere Art vorgeben?

Gruß
Gismoe