I need help exporting data from a grid

Public Sub ExportToExcel(ByVal dt As DataTable)

Try

Dim ColIndex As Int16 = 0

Dim RowIndex As Int16 = 0

Dim ColPos As Int16 = 0

Dim myexcel As New Excel.Application

Dim wBook As Excel.Workbook = myexcel.Workbooks.Add()

Dim wSheet As Excel.Worksheet = CType(wBook.Worksheets(1), Excel.Worksheet)

myexcel.Visible = False

With wSheet

For Each dc As DataColumn In dt.Columns

If ColStatus(ColIndex - 1) = "True" Then

End If

Next

End With

With wSheet

For Each dr As DataRow In dt.Rows

For Each dc As DataColumn In dt.Columns

If ColStatus(ColIndex - 1) = "True" Then

End If

Next

Next

End With

With myexcel

.Columns("A:J").ColumnWidth = 15

.Range("A1:J1").HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter

With .Range("A1:J1").Font

.Name = "Microsoft Sans Serif"

.FontStyle = "Bold"

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

End With

End With

myexcel.Visible = True

Catch ex As Exception

MessageBox.Show("Source [" & ex.Source & "] Description [" & ex.Message & "]")

End Try

End Sub