'Browse for file Dim strFilter As String strFilter = "Excel or CSV file|*.xls; *.xlsx; *.xlsm; *.csv|" strFileName = swApp.GetOpenFileName("Open file", Empty, strFilter, Empty, Empty, Empty) --------------- 'Open sketch Dim swSketchMgr As SldWorks.SketchManager Set swSketchMgr = swModel.SketchManager swSketchMgr.Insert3DSketch True swSketchMgr.AddToDB = True -------------- 'create points from array Dim vPointsSplit As Variant Dim i As Integer On Error GoTo ErrorHandling: For i = 0 To UBound(strPoints) vPointsSplit = Split(strPoints(i), ",") swSketchMgr.CreatePoint vPointsSplit(0) / 1000, vPointsSplit(1) / 1000, vPointsSplit(2) / 1000 Next i ErrorHandling: MsgBox "Error reading data." --------------- 'Close sketch swSketchMgr.AddToDB = False swSketchMgr.Insert3DSketch True swModel.ViewZoomtofit2 Exit Sub