Dim textFileName As String = Settings.ResultFile
Dim textFile As IO.StreamWriter = IO.File.CreateText(textFileName)
Dim xCelApp As New Excel.Application
Dim oWB As Excel.Workbook = xCelApp.Workbooks.Open(Settings.FileName)
Dim oWS As Excel.Worksheet = oWB.SheetActivate("Sheet2")
Dim textFile As IO.StreamWriter = IO.File.CreateText(textFileName)
Dim xCelApp As New Excel.Application
Dim oWB As Excel.Workbook = xCelApp.Workbooks.Open(Settings.FileName)
Dim oWS As Excel.Worksheet = oWB.SheetActivate("Sheet2")