Hi I need code for get coordinates of sketch. to calculate width and hight of unknown sketch using coding.sketch inserted using Tools->Block ->insert(dxf file)

I tried api function

Set swApp =  CreateObject("SldWorks.Application")

Set Part = swApp.ActiveDoc

Set theSketch  = Part.GetActiveSketch2

sketchPointArray  = theSketch.GetSketchPoints2

pointCount =  UBound(sketchPointArray) + 1

this throughing error