Как вызвать диалоговое окно сохранения файла

Imports Microsoft.Office.Interop
Imports System.IO
 
Public Class Form1
    Dim l As Integer = 0
    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
 
    End Sub
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        l = l + 1
        Dim v As Integer
        Dim s As Boolean
        Dim app As New Microsoft.Office.Interop.Excel.Application
        Dim book As Microsoft.Office.Interop.Excel.Workbook = app.Workbooks.Add()
        Dim sheet As Microsoft.Office.Interop.Excel.Worksheet = book.ActiveSheet
        s = IO.File.Exists("D:ExcelFile.xlsx")
        Select Case s
            Case False
                app.ActiveWorkbook.SaveAs("D:ExcelFile.xlsx")
                app.Workbooks.Open("D:ExcelFile.xlsx")
            Case Else
                app.Workbooks.Open("D:ExcelFile.xlsx")
        End Select
        sheet = app.ActiveSheet()
        sheet.Range("A1").Value = "№"
        sheet.Range("A:A").ColumnWidth = 10
        sheet.Range("B1").Value = "Процессор"
        sheet.Range("B:B").ColumnWidth = 15
        sheet.Range("C1").Value = "Тактовая частота"
        sheet.Range("C:C").ColumnWidth = 15
        sheet.Range("D1").Value = "Тип ОС"
        sheet.Range("D:D").ColumnWidth = 15
        sheet.Range("E1").Value = "Тип ОЗУ"
        sheet.Range("E:E").ColumnWidth = 17
        sheet.Range("F1").Value = "Объем ОЗУ"
        sheet.Range("F:F").ColumnWidth = 17
        sheet.Range("G1").Value = "Видео память"
        sheet.Range("G:G").ColumnWidth = 12
        sheet.Range("H1").Value = "Колличество жестких дисков"
        sheet.Range("H:H").ColumnWidth = 40
        sheet.Range("I1").Value = "Общий объем памяти"
        sheet.Range("I:I").ColumnWidth = 30
        sheet.Range("J1").Value = "Версия ОС"
        sheet.Range("J:J").ColumnWidth = 30
        v = app.WorksheetFunction.CountA(sheet.Range("A:A")) + 1
        sheet.Range("A" & v).Value = TextBox1.Text
        sheet.Range("B" & v).Value = TextBox2.Text
        sheet.Range("C" & v).Value = TextBox3.Text
        sheet.Range("D" & v).Value = TextBox4.Text
        sheet.Range("E" & v).Value = TextBox5.Text
        sheet.Range("F" & v).Value = TextBox6.Text
        sheet.Range("G" & v).Value = TextBox7.Text
        sheet.Range("H" & v).Value = TextBox8.Text
        sheet.Range("I" & v).Value = TextBox9.Text
        sheet.Range("J" & v).Value = TextBox10.Text
        app.ActiveWorkbook.Save()
        app.ActiveWorkbook.Close()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
 
 
End Class

        Dim SFD As New SaveFileDialog With {.Filter = "Файлы Excel|*.xls"}
        If SFD.ShowDialog = Windows.Forms.DialogResult.OK Then
            MsgBox(SFD.FileName)
        End If