VB.NET TIFF - Create and Read TIFF File Tag

Public Shared FolderName As String = "c:/"

Private Sub button1_Click(sender As Object, e As EventArgs)

    Dim fileName As String = FolderName & "Sample.tif"

    Dim doc As REDocument = REFile.OpenDocumentFile(fileName, New TIFDecoder())
    'use TIFDecoder open a tif file
    Using tiff As Stream = New FileStream("file1.tif", FileMode.Open, FileAccess.Read, FileShare.Read)
        doc.Read(tiff)
        For Each image As TiffDirectory In file.Images
            For Each tag As TiffTag In image.Tags
                Console.WriteLine(tag.ToString())
            Next
        Next
    End Using
End Sub 

Public Shared FolderName As String = "c:/"

Private Sub button1_Click(sender As Object, e As EventArgs)

    Dim fileName As String = FolderName & "Sample.tif"

    Dim doc As REDocument = REFile.OpenDocumentFile(fileName, New TIFDecoder())
    'use TIFDecoder open a tif file
    file.Images(0).Tags.Add(New TiffTag(TiffTagID.ImageDescription, "Insert a private tiff tag", TiffTagDataType.Ascii))
    file.Save("addtifftag.tif")
End Sub