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 listoffiles As Variant
    
    Set objApplication = GetObject(, "SolidEdge.Application")
    Set objTCE = objApplication.SolidEdgeTCE
    FileItemID = "020670"
    FileItemRevID = "A"
    FileDataSetName = "020670.par"
        
    Call objTCE.OnGetWhereUsedForAutomation(FileItemID, FileItemRevID, FileDataSetName, listoffiles)
    If Not objApplication Is Nothing Then
        Call objApplication.Quit
    End If
    
    Set objTCE = Nothing
    Set objApplication = Nothing
End Sub