VB.NET SafeFileDialog

Dim DialogSave As New System.Windows.Forms.SaveFileDialog
        Dim XlsExportOptions As New XlsExportOptions
        With XlsExportOptions
            .ExportMode = XlsExportMode.SingleFile
            .TextExportMode = TextExportMode.Value
        End With


        With DialogSave
            .Filter = strFilter
            .Title = "Export Laporan"
            .ShowDialog()

            If .FileName <> "" Then

                Select Case strFileType
                    Case "Excel"
                        gridView.ExportToXls(.FileName)
                    Case "Pdf"
                        gridView.ExportToPdf(.FileName)
                End Select

            End If
        End With