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 DocFormat
Dim docFormat As New DocFormat(Common.MapSourceFilePath(filePath))

' initialize metadata
Dim docMetadata As DocMetadata = docFormat.DocumentProperties

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