Eu consegui esse código mas dá erro toda hora, tentei chat gpt mas a base dele é de 2022 parece não funcionar em 2024

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
Dim swView As SldWorks.View
Dim swPart As SldWorks.ModelDoc2
Dim swBody As SldWorks.Body2
Dim vBox As Variant
Dim x1 As Double, y1 As Double, z1 As Double
Dim x2 As Double, y2 As Double, z2 As