Need help saving info in text boxes please

Dim rtb As New RichTextBox
        Dim path As String

        rtb.Text = Textbox1.text & vbNewLine & textbox2.text


  Using sfd As New SaveFileDialog

            sfd.Filter = "Rich Text Files (*.rtf)|*.rtf|Text File (*txt)|*.txt|All Files|*.*"

            If sfd.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
                path = sfd.FileName

                Using sw As New IO.StreamWriter(path)
                    sw.Write(rtb.Text)
                End Using

            End If

        End Using

Dim Save As New SaveFileDialog() 
Dim myStreamWriter As System.IO.StreamWriter 
Save.Filter = "Text [*.txt*]|*.txt|All Files [*.*]|*.*" 
Save.CheckPathExists = True 
Save.Title = "Save File" 
Save.ShowDialog(Me) 
Try 
myStreamWriter = System.IO.File.AppendText(Save.FileName) 
myStreamWriter.Write(RichTextBox1.Text) 
myStreamWriter.Flush() 
Catch ex As Exception 
End Try