Save 5 rich text box enteries at one time to one text file

See more:

VB

I am currently using the code below that lets me save one rich text box entry to a text file (word form): Please see code:

 Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click
    Try
        Dim dlg As SaveFileDialog = New SaveFileDialog
        dlg.Title = "Save"
        dlg.Filter = "Rich Text Files(*.rtf)|*.rtf"

        If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            RichTextBox1.SaveFile(dlg.FileName, RichTextBoxStreamType.RichText)

        End If

    Catch ex As Exception : End Try
End Sub

This code works great but I was wondering if someone could please help in a code for using 5 or even more rich text box at one time and saving them to a text file (word form) at a click of a button.