VB.NET TIFF - Convert TIFF to JPEG Using VB

''' Firstly, render TIFF document to get a REImage collection, or choose specific TIFF page to render	
Private Function GetPage(pageIdx As Integer) As BasePage Implements TIFFDocument.GetPage
End Function
Private Function toImage() As BaseImage Implements TIFFPage.toImage
End Function
Private Function toImage(width As Integer, height As Integer) As BaseImage Implements TIFFPage.toImage
End Function
Private Sub New(imagesource As List(Of REImage))
End Sub

''' Secondly, convert TIFFs to JPEG images using following TIFF conversion API
Private Sub Convert(s As Stream, format As ImageFormat) Implements REImage.Convert
End Sub

''' <summary>
''' Convert TIFF to images of JPEG format
''' </summary>
''' <param name="TiffFilePath"></param>
''' <returns></returns>
Public Function ConvertTIFFtoJPEG(TiffFilePath As String) As List(Of Stream)
   ' A list of stream which contains the image data  of the JPEG image.
   Dim buffer As New List(Of Stream)()

   Dim doc As New TIFFDocument(TiffFilePath)
   For i As Integer = 0 To doc.GetPageCount() - 1
      Dim page As TIFFPage = DirectCast(doc.GetPage(i), TIFFPage)

      Dim temp As REImage = DirectCast(page.ToImage(), REImage)
      Dim imageStream As New MemoryStream()
      If temp IsNot Nothing Then
         temp.Convert(imageStream, ImageFormat.Jpeg)
         buffer.Add(imageStream)

      End If
   Next

   Return buffer
End Function