Please guide me how to do this

Option Explicit

Sub main()

    Dim swApp                           As SldWorks.SldWorks

    Dim swModel                         As SldWorks.ModelDoc2

    Dim swSelMgr                        As SldWorks.SelectionMgr

    Dim swFeat                          As SldWorks.Feature

    Dim swSketch                        As SldWorks.Sketch

    Dim swSkRelMgr                      As SldWorks.SketchRelationManager

    Dim vSkRelArr                       As Variant

    Dim swSkRel                         As SldWorks.SketchRelation

    Dim relType                         As Long

    Dim i                               As Long

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swSelMgr = swModel.SelectionManager

    Set swFeat = swSelMgr.GetSelectedObject5(1)

    Set swSketch = swFeat.GetSpecificFeature2

    Set swSkRelMgr = swSketch.RelationManager

  vSkRelArr = swSkRelMgr.GetRelations(swAll)

        For i = 0 To UBound(vSkRelArr)

        Set swSkRel = vSkRelArr(i)

        relType = swSkRel.GetRelationType
               If relType =  "swConstraintType_COINCIDENT"  then
        Debug.Print relType
     End If
    Next i

     End Sub