Generate a PDF document from exported stream of a crystal report

Private Sub msGPDF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles msGPDF.Click
    Dim Stream As IO.Stream = objRpt.ExportToStream(ExportFormatType.PortableDocFormat)
    Dim Buffer(CInt(Stream.Length)) As Byte
    Stream.Read(Buffer, 0, CInt(Stream.Length))
    My.Computer.FileSystem.WriteAllBytes("Report.pdf", Buffer, False)
    System.Diagnostics.Process.Start(fs.Name)
End Sub