Public Function getDLLProjectName(sFile As String) As String
   Dim tliTypeLibInfo as TLI.TypeLibInfo
   Set tliTypeLibInfo = new TLI.TypeLibInfo
 
   tliTypeLibInfo.ContainingFile = sFile
   getDLLProjectName = tliTypeLibInfo.Name
 
   set tliTypeLibInfo = Nothing
End Function