Criar PDF em VB.NET

[Ruben_Barbosa]

        ' Cria um arquivo PDF
        Dim relatorioPDF As New Report(New PdfFormatter)
        ' Define informações da fonte usadas
        Dim FontDef As New FontDef(relatorioPDF, "Courier")
        Dim FontProp As New FontPropMM(FontDef, 10)
        ' Cria uma nova página
        Dim PDFPage As New Page(relatorioPDF)
        ' Adiciona algumas linhas de texto
        PDFPage.AddCB_MM(60, New RepString(FontProp, vbCrLf & vbCrLf & vbCrLf & "Tipo de Sugestão: " & vbTab & ComboBox1.Text & vbCrLf & vbCrLf & "Email: " & vbTab & RichTextBox2.Text & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & "Assunto da Sugestão: " & vbCrLf & vbCrLf & RichTextBox1.Text & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & "Nome de Utilizador: " & vbTab & RichTextBox3.Text))
        Try
            'visualiza o PDF
            RT.ViewPDF(relatorioPDF, "Sugest.PDF")
            ' Salvando o documento na pasta bin do projeto
            relatorioPDF.Save("arquivo.pdf")
            MsgBox("Arquivo PDF salvo com sucesso.", MsgBoxStyle.Information)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

É o meu codigo para cirar pdf mas em antes adicionei o reports as referencias.

Mas esta porcaria da-me erro nao me visualiza o pdf mas guarda.me o documento em pdf e dps quando vou ao sitio onde grava ele diz.me que nao posso abrir o documento pk foi enviado em modo email ou anexo e nao foi decifrado correctamente.