Sub tt()

  Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2

    Set SwApp = Application.SldWorks

    Set SwModel = SwApp.ActiveDoc

  Dim SwSelMgr As SelectionMgr, SwFeat As Feature

    Set SwSelMgr = SwModel.SelectionManager

    Set SwFeat = SwSelMgr.GetSelectedObject5(1)

    Debug.Print "Selected Feature is " & SwFeat.Name     

End Sub

selction Part1.sldprt→ Extrude1 → result is correct

select b.sldasm→ like configuration (a2) → result is error → Type mismatch