Sub Test() Dim im As ImportFilter Set im = ActiveLayer.ImportEx(SetupPath & "Draw\CustomMediaStrokes\Arrow.cmx") im.FinishEnd Sub