Sub main()
Dim selobj As Object
Dim selmgr As Object
Dim swApp As Object
Dim Part As SldWorks.ModelDoc2
Dim boolstatus As Boolean
Dim longstatus As Long
Dim Annotation As Object
Dim Gtol As Object
Dim DatumTag As Object
Dim FeatureData As Object
Dim Feature As Object
Dim gio As Variant
Dim retval As Boolean
Dim mate As Object
Dim Component As Object
Dim x As Double
Dim y As Double
Dim z As Double
Dim matename
Const swSelMATES = 21

Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc
Set selmgr = Part.SelectionManager()
retval = Part.SelectByID("Inser_your_mate_name_here", "MATE", x, y, z) 'we have mate
selected
Set selobj = selmgr.GetSelectedObject(1)
matename = selobj.Name 'the same as mate.name after setting the mate
'just to check do we have right one

selType = selmgr.GetSelectedObjectType2(1)

If selType = swSelMATES Then ' if we have mates selected
    Set mate = selobj.GetSpecificFeature ' set MATE object
    matename = mate.Name
    gio = mate.GetMateParams()
    entity1 = gio(0) ' mate type
    entity2 = gio(1) ' align flag
    entity3 = gio(2) ' can be flipped
    MsgBox Str(entity1) + "<>" + Str(entity2) + "<>" + Str(entity3)
End If

Set swApp = Nothing
Set Part = Nothing
Set mate = Nothing
set selobj = Nothing
set selmgr = Nothing

End Sub