Разделить текст по столбцам в Excel

Private Sub But_to_Excel_Click(sender As Object, e As EventArgs) Handles But_to_Excel.Click
 
 
        Dim oExcel As Microsoft.Office.Interop.Excel.Application
        Dim oBook As Microsoft.Office.Interop.Excel.Workbook
        Dim oSheet As Microsoft.Office.Interop.Excel.Worksheet
 
 
 
        oExcel = CreateObject("Excel.Application")
        oBook = oExcel.Workbooks.Add
        oSheet = oBook.Worksheets(1)
 
        oExcel.Visible = True
 
 
        For j = 0 To 1
 
 
            For i = 0 To stroki
 
 
                oSheet.Cells(i + 1, j + 1).NumberFormat = "0"
                oSheet.Cells(i + 1, j + 1).Value = DataGridView1.Item(j, i).Value
 
            Next
 
        Next
 
        oSheet.Columns("A:A").Select
 
        oSheet.Columns.TextToColumns('Destination:=oSheet.Range("A1").Select, Destination:=oSheet.Range(1, 1)
                                     Destination:=oSheet.Columns(1, 1).Select,
                                     DataType:=Excel.XlTextParsingType.xlDelimited,
                                     TextQualifier:=Excel.XlTextQualifier.xlTextQualifierDoubleQuote,
                                     ConsecutiveDelimiter:=False,
                                     Tab:=True,
                                     Semicolon:=False,
                                     Comma:=False,
                                     Space:=False,
                                     Other:=False,
                                     OtherChar:=False,
                                     FieldInfo:=XlColumnDataType.xlGeneralFormat,
                                     TrailingMinusNumbers:=True)
 
 
 
        oExcel = Nothing
 
    End Sub