Option Explicit
Sub Example()
    Dim objApplication As SolidEdgeFramework.Application
    Dim objTCE As SolidEdgeFramework.SolidEdgeTCE
    Dim FileItemID As String
    Dim FileItemRevID As String
    Dim FileDataSetName As String
    Dim FileRevisionRule As String
    Dim FileVariantRule As String
    Dim listOfProperties As Variant
    
    Set objApplication = GetObject(, "SolidEdge.Application")
    Set objTCE = objApplication.SolidEdgeTCE
    FileItemID = "020147"
    FileItemRevID = "A"
    FileDataSetName = "020147.par"
    FileRevisionRule = "latest working"
    FileVariantRule = ""
    Call objTCE.GetMappedPropertiesForGivenFile(FileItemID, FileItemRevID, FileDataSetName, listOfProperties)
    
    If Not objApplication Is Nothing Then
        Call objApplication.Quit
    End If
    
    Set objTCE = Nothing
    Set objApplication = Nothing
End Sub