Public Function CheckinEntity(VersionCntl As IVersionControl, _
                comment$) As Boolean
                
' Check an object in after a checkout
                
    On Error GoTo CheckInErr
    CheckinEntity = SUCCESS
    
    VersionCntl.CheckIn comment
              
Exit Function
CheckInErr:
    CheckinEntity = FAILURE
End Function