set rootprod=oDoc.Selection.FindObject("CATIAProduct")

if Value1 = "Windows_NT" then
  filename=Home & rootprod.Name & ".pst"
else
  filename=Home & "/" & rootprod.Name & ".pst"
end if

' Matix-file          
' filename=InputBox("Filename", "Fileame")
call msgbox("Schreiben von " & filename)
set MatrFile=dire.CreateFile(filename,true)
Set Ausgabe=MatrFile.OpenAsTextStream("ForWriting")
' Kinder suchen
ichild=1
i=0
ipar=1
parentId(ipar)=0

set parentprod(ipar)=rootprod
do 
  i=i+1
  set childprod=parentprod(i).products

  parentprod(i).position.GetComponents Matrix
 
  icount=childprod.count
  if icount > 0 then

        for ii=1 to icount
        ipar=ipar+1

        if ipar >= 1000 then
          msgbox " Overflow"
          return
        end if

        set parentprod(ipar)=childprod.item(ii)
        parentId(ipar)=i
     next

  else
    ....
  end if
 loop until i=>ipar
end sub