Option Explicit
Sub Example()
Dim objApplication As SolidEdgeFramework.Application
Dim objTCE As SolidEdgeFramework.SolidEdgeTCE
Dim PDMCAcheFilePath As String
Dim Strolditemid As String
Dim stroldrev As String
Dim bIsBomCorrect As Boolean
Dim CompResult As String
Dim nNoOfServerComponents As Integer
Dim vRevisionRule As String
Dim bvalidateBOMOnly As Boolean
Set objApplication = GetObject(, "SolidEdge.Application")
Set objTCE = objApplication.SolidEdgeTCE
bIsBomCorrect = True
bvalidateBOMOnly = False
PDMCAcheFilePath = "C:\test.asm"
Strolditemid = ""
stroldrev = ""
Call objTCE.ValidateTcObjectModel(PDMCAcheFilePath, Strolditemid, stroldrev, bIsBomCorrect, CompResult, vRevisionRule, bvalidateBOMOnly, nNoOfServerComponents)
If Not objApplication Is Nothing Then
Call objApplication.Quit
End If
Set objTCE = Nothing
Set objApplication = Nothing
End Sub