VBA: Export einer Blechabwicklung als DXF/DWG/SAT mit einer Funktion durch Übergabe der gewünschten Dateiendung

Public Sub Abwicklung_Exportieren()
    Abwicklung_Export ("sat")
    Abwicklung_Export ("dxf")
    Abwicklung_Export ("dwg")
End Sub
Public Sub Abwicklung_Export(Ext As String)
    'Aktuelles Dokument
    Dim oDoc As PartDocument
    Set oDoc = ThisApplication.ActiveDocument
    
    'Prüfen ob Datei ein Blech ist und falls keine Abwicklnug vorhanden Abwicklung erstellen
    If oDoc.SubType = "{9C464203-9BAE-11D3-8BAD-0060B0CE6BB4}" Then
         Set oFlatPattern = oDoc.ComponentDefinition.FlatPattern
         Set oSheetMetalCompDef = oDoc.ComponentDefinition
          If oSheetMetalCompDef.HasFlatPattern = False Then oSheetMetalCompDef.Unfold
    Else
        'Abbrechen, wenn kein Blechbauteil
        'MsgBox "Datei ist kein Blech!"
        Exit Sub
     End If
    
    'Dateiname ohne Extension ermitteln und Exporterweiterung anhängen
    Dim Dateiname As String
    Dateiname = Left(oDoc.FullFileName, Len(oDoc.FullFileName) - 3) & Ext
    
    'Export der Abwicklung durchführen
    Dim oDataIO As DataIO
    Set oDataIO = oDoc.ComponentDefinition.DataIO
    Dim sOut As String
    'Sout definiert die Abwicklungsoptionen. siehe auch https://adndevblog.typepad.com/manufacturing/2012/05/exporting-flat-pattern-as-dwgdxf.html
    sOut = "FLAT PATTERN " & UCase(Ext)
    oDataIO.WriteDataToFile sOut, Dateiname
End Sub

Wer selbst programmieren lernen will, kann sich hier meine Programmieranleitungen (VBA & API) anschauen.