Plan with 3 points

Ok, i got it:

Basically, you have to select the points with the SelectByID2 function appending the marks 0, 1 and 2 respectively in your 3 points, then you can call the InsertRefPlane. My code ended up like this:

Sub main()


    Dim swApp               As SldWorks.SldWorks
    Dim swModel             As SldWorks.ModelDoc2
    
    Dim swFeature           As SldWorks.Feature
    Dim swSubFeature        As SldWorks.Feature
    Dim swPlaneFeat         As SldWorks.Feature
    Dim swSk                As SldWorks.Feature
    
    Dim swFeatMgr           As SldWorks.FeatureManager
    
    Dim FeatMgr             As IFeatureManager
    
    
    Dim vSkPtArr            As Variant
    Dim vSkSeg              As Variant
    Dim vConfNameArr        As Variant
    Dim vSuppStateArr       As Variant
    
    Dim swSkPt              As SldWorks.SketchPoint
    Dim swSkLine            As SldWorks.SketchLine
    
    Dim Value               As Boolean
    Dim boolstatus          As Boolean
    
    Dim SketchName          As String
    Dim PointName           As String
    Dim PointType           As String
    Dim PointSlot           As String
    
    Dim PointX              As Double
    Dim PointY              As Double
    Dim PointZ              As Double
    
    Dim Mark                As Integer


        Set swApp = Application.SldWorks
            
            Set swModel = swApp.ActiveDoc


        Set swFeature = swModel.FirstFeature
        
            While Not swFeature Is Nothing
            
                Select Case swFeature.GetTypeName2
                    Case "FlatPattern"
                    
                        vConfNameArr = swModel.GetConfigurationNames
                        vSuppStateArr = swFeature.IsSuppressed2(swThisConfiguration, vConfNameArr)
                            
                            Debug.Print "Component Flat Pattern Supression = " & vSuppStateArr(i)
                            
                If vSuppStateArr(i) = True Then Value = swFeature.Select(True)
                
                    Value = swModel.EditUnsuppress2
                    
                    
                Set swSubFeature = swFeature.GetFirstSubFeature
                
                    Debug.Print "Feature being processed is: " & swFeature.Name
                
                        While Not swSubFeature Is Nothing
                        
                            Debug.Print "SubFeature being processed is: " & swSubFeature.Name
                            
                                If swSubFeature.Name Like "*Caixa*" Then
                                        
                                        Dim swSketch As Sketch
                                        Set swSketch = swSubFeature.GetSpecificFeature2
                                        
                                            vSkPtArr = swSketch.GetSketchPoints
                                            
                                            Mark = 0
                                            
                                                For i = 1 To UBound(vSkPtArr)
                                                        Set swSkPt = vSkPtArr(i)
                                                        Set swSk = swSkPt.GetSketch
                                                            SketchName = swSk.Name
                                                            PointSlot = swSkPt.IGetID
                                                            PointType = "EXTSKETCHPOINT"
                                                            PointX = swSkPt.X
                                                            PointY = swSkPt.Y
                                                            PointZ = swSkPt.Z
                                                            
                                                            PointName = "Point" & PointSlot & "@" & SketchName
                                                                Debug.Print "Point Name is: " & PointName
                                                                Debug.Print "Point Coordinates are: " & PointX; ","; PointY; ","; PointZ
                                                        
                        Value = swModel.Extension.SelectByID2(PointName, PointType, PointX, PointY, PointZ, True, Mark, Nothing, 0)
                                If Value = False Then Debug.Print "Point " & PointName; " Selected"
                                
                                                            Mark = Mark + 1
                                                                                                            
                                                Next i
                                                
                                                    Dim swPlane             As Object
                                                    
                                                        Set swPlane = swModel.FeatureManager.InsertRefPlane(4, 0, 4, 0, 4, 0)
                                                            boolstatus = swPlane Is Nothing
                                                                If boolstatus = True Then Debug.Print "Plane Not Created"
                                                            Debug.Print "Plane Created"
                                End If
                            Set swSubFeature = swSubFeature.GetNextSubFeature
                        Wend
                    End Select
                Set swFeature = swFeature.GetNextFeature()
            Wend
    End Sub