Permitir al usuario escoger un fichero para guardarlo

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
 
    If MessageBox.Show(Me, _
                       "¿Realmente quiere guardar el documento?", _
                       "GUARDAR", _
                       MessageBoxButtons.YesNo, _
                       MessageBoxIcon.Question) = DialogResult.No Then
        Return
    End If
 
    ' Guardado del documento
    SaveFileDialog1.Title = "Guardar"
    SaveFileDialog1.DefaultExt = "txt"
    SaveFileDialog1.Filter = "Ficheros de texto (*.txt)|*.txt|Todos los ficheros (*.*)|*.*"
    SaveFileDialog1.FilterIndex = 1
    ' mostramos cuadro de diálogo de guardar
    If SaveFileDialog1.ShowDialog(Me) = DialogResult.OK Then
 
        Dim sw As StreamWriter = New StreamWriter(SaveFileDialog1.OpenFile, Encoding.Default)
        Try
            Dim i As Integer = 0
            While i < RichTextBox1.Lines.Length
                sw.WriteLine(RichTextBox1.Lines(i))
                System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1)
            End While
        Finally
            If Not (sw Is Nothing) Then
                sw.Close()
            End If
        End Try
    End If
End Sub