vb.net - File.WriteAllBytes(filePath, byteData) を使用して生成された pdf のエラー

Question

バイト配列を使用してpdfファイルを生成しようとしています。使用されるコードは次のとおりです。

Public Sub SavePdf(ByVal bytes() As Byte)
    Dim filePath As String = HttpContext.Current.Server.MapPath("~/ClientBin/file1.pdf")
    Dim byteData() As Byte = bytes
    File.WriteAllBytes(filePath,byteData)
End Sub

バイト配列は、richEditControl を使用して生成されます。コードは次のとおりです。

 Public Sub generateByte_Click(ByVal sender As Object, ByVal e As System.EventArgs)
    Dim ms As MemoryStream = New MemoryStream()
    ms.Flush()
    richEditControl1.SaveDocument(ms, DocumentFormat.Rtf)
    client.SavePdf(ms.ToArray())
    MessageBox.Show("FileSaved")
End Sub

そのように生成されたファイルを開くことができません。