1.add Interop.Microsoft.Office.Interop.Excel.dll reference.
2.Imports Microsoft.Office.Interop name space
3.add following code
Dim myApplication As Excel.Application
Dim myWorkBook As Excel.Workbook
Dim myWorkSheet As Excel.Worksheet
Dim misValue As Object = System.Reflection.Missing.Value
Dim myrange As Excel.Range
thats it.try this if it is not work i will provide soln.