Code:

---

    Dim otype(0)
    Dim Auswahl
    Dim Check As Boolean

    Set oDoc = CATIA.ActiveDocument
    Set oSel = oDoc.Selection
    oSel.Clear
    otype(0) = "Product"
    oSel.Clear
    Box = MsgBox("Bitte wählen Sie ein Product aus", vbInformation + vbOKCancel, "Product auswählen")
    If Box = vbCancel Then
        Box = MsgBox("Sie haben die Selektion abgebrochen" + Chr(10) + _
        "Das Makro wird nun beendet!", vbCritical, "Abbruch durch Nutzer")
        Exit Sub
    End If
    Do
    Auswahl = oSel.SelectElement2(otype, "Bitte wählen Sie ein Product aus", False)
    If Auswahl = "Normal" Then
        Set oProd = oSel.Item(1).Value
        If TypeName(oProd.ReferenceProduct.Parent) <> "ProductDocument" Then
            Box = MsgBox("Bitte wählen Sie nur ein Product aus!", vbInformation, "Falsche Auswahl")
        Else
            Check = True
        End If
    Else
        Box = MsgBox("Sie haben die Selektion abgebrochen" + Chr(10) + _
        "Das Makro wird nun beendet!", vbCritical, "Abbruch durch Nutzer")
        Exit Sub
    End If
    Loop Until Check = True
    oSel.Clear

---