Public Sub GetListOfFilesFromTeamcenterServer( _
   ByVal bstrDirctFileItemId As String, _
   ByVal bstrDirctFileItemRevId As String, _
   ByRef vFileNames As Variant, _
   ByRef nFiles As Long _
)