Cacher is the code snippet organizer for pro developers

' For complete examples and data files, please go to https://github.com/groupdocs-metadata/GroupDocs.Metadata-for-.NET
Dim jpegFormat As New JpegFormat(Common.MapSourceFilePath(filePath))

' get EXIF data
Dim exifInfo As ExifInfo = jpegFormat.GetExifInfo()
If exifInfo IsNot Nothing Then
    Dim allTags As TiffTag() = exifInfo.Tags

    For Each tag As TiffTag In allTags
        Select Case tag.TagType
            Case TiffTagType.Ascii
                Dim asciiTag As TiffAsciiTag = TryCast(tag, TiffAsciiTag)
                Console.WriteLine("Tag: {0}, value: {1}", asciiTag.DefinedTag, asciiTag.Value)
                Exit Select

            Case TiffTagType.Rational
                Dim rationalTag As TiffRationalTag = TryCast(tag, TiffRationalTag)
                Console.WriteLine("Tag: {0}, value: {1}", rationalTag.DefinedTag, rationalTag.Value)
                Exit Select
                'end of switch
        End Select
        'end of foreach
    Next
End If