Found it .. .
Please read VBA help on how to use Select...Case.
Set swModel = swApp.ActiveDoc
Set swFeat = swModel.FirstFeature
Do While Not swFeat Is Nothing
select case swfeat.gettypename 'This line returns a string.
Debug.Print TypeName(swFeat.GetTypeName) 'If you want the Immediate window to say "Sheet Metal"
Process_SheetMetal swApp, swModel, swFeat
debug.print swfeat.gettypename & " (not sheet metal)"
Thank you Josh.
I found out - sometimes question solves itself, when it is asked.
In many auto function - type of part is needed to know.
I wonder why sw doesn't have at direct metode to find a sheetmetal and multipart part - all other types of parts are easy to detect by the file extension.
Source code for my question was: