Option Explicit
Sub Example()
Dim objApplication As SolidEdgeFramework.Application
Dim objTCE As SolidEdgeFramework.SolidEdgeTCE
Dim varInputList(1) As Variant
Dim bOnlyUpload As Boolean
Set objApplication = GetObject(, "SolidEdge.Application")
Set objTCE = objApplication.SolidEdgeTCE
varInputList(0) = "F:\010088.par"
varInputList(1) = "F:\010087.par"
bOnlyUpload = False
Call objTCE.CheckInDocumentsToTeamCenterServer(varInputList, bOnlyUpload)
If Not objApplication Is Nothing Then
Call objApplication.Quit
End If
Set objTCE = Nothing
Set objApplication = Nothing
End Sub