Private Sub SetByPlaneAndOffsetTest()
    ' Testen ob aktives Dokument ein Part ist
    If ThisApplication.ActiveDocumentType <> kPartDocumentObject Then
        MsgBox "Only Part document", vbCritical
        Exit Sub
    End If
        
    Dim oPartDoc As PartDocument
    Set oPartDoc = ThisApplication.ActiveDocument
    
    ' Ausgangsebene für Offset definieren
    Dim RefPlane As Object
    Set RefPlane = oPartDoc.ComponentDefinition.WorkPlanes.Item(2)
            
    ' Offsetabfrage für neue AE
    Dim Offset As String
    Offset = InputBox("Offsetwert für neue Geometriebezugsebene") + "mm"

    ' Erstellung der neuen Arbeitsebene
    Dim NewPlane As Object
    Set NewPlane = oPartDoc.ComponentDefinition.WorkPlanes.AddByPlaneAndOffset(RefPlane, Offset)


    '********************
    'Definition lt. Hilfe
    'SetByPlaneAndOffset(Plane As Object,Offset As Variant)
    '********************
    
    '********************
    'Versuche
    Call NewPlane.SetByPlaneAndOffset(RefPlane, "20 mm")
    'Call NewPlane.SetByPlaneAndOffset(NewPlane, "20 mm")
    '********************
    
    
    'Dokument updaten
    oPartDoc.Update
End Sub