Sub CATMain()
    Dim sInputFile As String
    sInputFile = CATIA.FileSelectionBox(".cgr-Datei auswaehlen", "*.cgr", CatFileSelectionModeOpen)
    Dim sInputFileName As String
    sInputFileName = Left(sInputFile, InStrRev(sInputFile, ".") - 1)
    Dim oDoc As document
    Set oDoc = CATIA.documents.Read(sInputFile)
    oDoc.ExportData sInputFileName & ".model", "model"
    oDoc.Close
    Set oDoc = CATIA.documents.Open(sInputFileName & ".model")
    Dim docSel As selection
    Set docSel = oDoc.selection
    docSel.Search "Name=CAT_1000_1"
    docSel.Copy
    Dim iPartNumber As String
    iPartNumber = Mid(sInputFileName, InStrRev(sInputFileName, CATIA.FileSystem.FileSeparator) + 1)
    Set oDoc = CATIA.documents.Add("Part")
    Dim iProduct As Product
    Set iProduct = oDoc.Product
    iProduct.PartNumber = iPartNumber
    Set docSel = oDoc.selection
    docSel.Add iProduct
    docSel.Paste
    iProduct.Update
    oDoc.SaveAs sInputFileName & ".CATPart"
    oDoc.Close
    Set oDoc = CATIA.documents.Item(CATIA.documents.Count)
    oDoc.Close
End Sub