Export to Excel in vb.net 2010

' HERE IS THE BEST METOD

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        DATAGRIDVIEW_TO_EXCEL(DataGridView1) ' THIS PARAMETER IS YOUR DATAGRIDVIEW
    End Sub

    Private Sub DATAGRIDVIEW_TO_EXCEL(ByVal DGV As DataGridView)
        Try
            Dim DTB = New DataTable, RWS As Integer, CLS As Integer

            For CLS = 0 To DGV.ColumnCount - 1
                DTB.Columns.Add(DGV.Columns(CLS).Name.ToString)
            Next

            Dim DRW As DataRow

            For RWS = 0 To DGV.Rows.Count - 1
                DRW = DTB.NewRow

                For CLS = 0 To DGV.ColumnCount - 1
                    Try
                        DRW(DTB.Columns(CLS).ColumnName.ToString) = DGV.Rows(RWS).Cells(CLS).Value.ToString
                    Catch ex As Exception

                    End Try
                Next

                DTB.Rows.Add(DRW)
            Next

            DTB.AcceptChanges()

            Dim DST As New DataSet
            DST.Tables.Add(DTB)
            Dim FLE As String = "C:\MMS FILES\RESOURCES\XML.xml"                          ' CARPETA Y ARCHIVO DONDE SERÁ CREADO EL XML
            DTB.WriteXml(FLE)
            Dim EXL As String = GetSetting("MasterProduction", "Menu", "txtRutas1", "")   ' EXL = RUTA / Y ARCHIVO DEL EJECUTABLE DE EXCEL (EXCEL.EXE)
            Shell(Chr(34) & EXL & Chr(34) & " " & Chr(34) & FLE & Chr(34), vbNormalFocus) ' ABRIR EXCEL

        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

    End Sub