Guardar datos en excel desde vbnet

Utiliza este método:
Solo tienes que mandar un DataTable con los datos que desees y tendrás los datos en Excel.
Public Sub DataTableToExcel(ByVal pDataTable As DataTable)
        Dim vFileName As String = Path.GetTempFileName()
        FileOpen(1, vFileName, OpenMode.Output)
        Dim sb As String = ""
        Dim dc As DataColumn
        PrintLine(1, sb) : PrintLine(1, sb)
        PrintLine(1, sb) : PrintLine(1, sb)
        PrintLine(1, sb)
        PrintLine(1, sb)
        For Each dc In pDataTable.Columns
            sb &= dc.Caption & Microsoft.VisualBasic.ControlChars.Tab
        Next
        PrintLine(1, sb)
        Dim i As Integer = 0
        Dim dr As DataRow
        For Each dr In pDataTable.Rows
            i = 0 : sb = ""
            For Each dc In pDataTable.Columns
                If Not IsDBNull(dr(i)) Then
                    sb &= CStr(dr(i)) & Microsoft.VisualBasic.ControlChars.Tab
                Else
                    sb &= Microsoft.VisualBasic.ControlChars.Tab
                End If
                i += 1
            Next
            PrintLine(1, sb)
        Next
        FileClose(1)
        TextToExcel(vFileName)
    End Sub