With New RegExp
            'Suchmuster
            .Pattern = SearchPattern
            'schreibweise ignorieren
            .IgnoreCase = IgnorePatternCase
 
            If .Test(pkt_code) Then
                Debug.Print "=> gesuchter Code enthalten"
                GeosiPoint_WithCode_Exists = True
            Else
                Debug.Print "=> gesuchter Code NICHT enthalten"
            End If
 
        End With    'RegExp

Visual Basic 6.0 Grundkenntnisse und ansonsten alles rund um AutoCAD