Cacher is the code snippet organizer for pro developers

' For complete examples and data files, please go to https://github.com/groupdocsmetadata/GroupDocs_Metadata_NET
' initialize XlsFormat
Dim xlsFormat As New XlsFormat(Common.MapSourceFilePath(filePath))

' initialize XlsMetadata
Dim xlsMetadata As XlsMetadata = xlsFormat.DocumentProperties

Console.WriteLine(vbLf & "Custom Properties")
For Each keyValuePair As KeyValuePair(Of String, PropertyValue) In xlsMetadata
    ' check if property is not built-in
    If Not xlsMetadata.IsBuiltIn(keyValuePair.Key) Then
        ' get property value
        Dim propertyValue As PropertyValue = xlsMetadata(keyValuePair.Key)
        Console.WriteLine("Key: {0}, Type:{1}, Value: {2}", keyValuePair.Key, propertyValue.Type, propertyValue)
    End If