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