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