Private Sub Form_Load()
'Dieses beiden Arbeitsebenen werden einwandfrei gezeichnet
'Problem ist nur, wenn ich mit cmdOk den Versatz der 2.
'Arbeitsebene ändern will

Set oWorkplane(1) = oPart.ComponentDefinition.WorkPlanes.AddByLinePlaneAndAngle(oLines(2), oSketch.PlanarEntity, Text1.Text)
Set oWorkplane(2) = oPart.ComponentDefinition.WorkPlanes.AddByPlaneAndOffset(oWorkplane(1), Text2.Text)

End Sub

Private Sub cmdOk_Click

Call oWorkplane(2).SetByPlaneAndOffset(oWorkplane(1), Text2.Text)

End Sub