Dim oSelectSet As SelectSet
    Set oSelectSet = ThisApplication.ActiveDocument.SelectSet

    Dim oGreenHighlight As HighlightSet
    Set oGreenHighlight = ThisApplication.ActiveDocument.CreateHighlightSet()
    oGreenHighlight.Color = ThisApplication.TransientObjects.CreateColor(0, 255, 0)

    Dim oSelect
    Set oSelect = oSelectSet.Item(1)

    'If selection is Face'
    If (oSelect.Type = kEdgeObject) And (oSelectSet.Count = 1) Then
        Dim oBody As SurfaceBody
        Set oBody = oSelect.Parent

        For I = 1 To oBody.Edges.Count Step 1
            If (oSelect.TransientKey = oBody.Edges.Item(I).TransientKey) Then
                oGreenHighlight.AddItem (oSelect)
                MsgBox ("Index of Edge is " & CInt(I))
                Set oGreenHighlight = Nothing
            End If
        Next
    End If