【VB.NET】「名前を付けて保存」ダイアログボックスを表示する

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Using dialog As New SaveFileDialog()
        ' プロパティの設定
        With dialog
            ' ダイアログのタイトル
            .Title = "名前を付けて保存"

            ' 初期ディレクトリ
            .InitialDirectory = "C:\temp"

            ' ファイルのフィルタ
            .Filter = "テキストファイル|*.txt;*log|すべてのファイル|*.*"

            ' 初期表示するファイル名
            .FileName = "test.txt"

        End With

        ' ダイアログを表示し、戻り値が [OK] の場合は、選択したファイル名を表示する
        If dialog.ShowDialog() = DialogResult.OK Then
            Dim path As String = dialog.FileName

            ' StreamWriterクラスを使ってテキストファイルにデータを書き込む
            Using sw As New System.IO.StreamWriter(path, False, System.Text.Encoding.GetEncoding("Shift_JIS"))
                sw.WriteLine(Me.TextBox1.Text)
            End Using

            TextBox2.Text = path

        End If
    End Using
End Sub