Public Sub NewPlane()
    ' Eine neue AE soll parallel zur XY-Ebene
    ' und einem Offsetwert erzeugt werden.
    
    Dim oApp As Inventor.Applikation
    Set oApp = ThisApplication
    
    Dim oDoc As PartDocument
    Set oDoc = oApp.ActiveDokument
    
    ' RefPlane ist XY-Ebene
    Dim RefPlane As WorkPlane
    Set RefPlane = oDoc.Definition.WorkPlanes.Item(3)
        
    ' Eingabe des Offsetwertes
    Dim Offset As Single
    Offset = InputBox("Geben Sie den Offsetwert ein:")
    
    ' Erstellung der neuen Ebene
    Dim oWp1 As WorkPlane
    Set oWp1 = oDoc.ComponentDefinition.WorkPlanes.AddByPlaneAndOffset(RefPlane, Offset)
    
End Sub