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

    ' initialize metadata
    Dim docMetadata As DocMetadata = docFormat.DocumentProperties

    ' get properties
    Console.WriteLine("Built-in Properties: ")
    For Each [property] As KeyValuePair(Of String, PropertyValue) In docMetadata
        ' check if built-in property
        If docMetadata.IsBuiltIn([property].Key) Then
            Console.WriteLine("{0} : {1}", [property].Key, [property].Value)
        End If
    Next
Catch ex As InvalidFormatException
    Console.WriteLine("File is not DOC: {0}", ex.Message)
End Try