Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button5.Click
 
        Dim oXl As Microsoft.Office.Interop.Excel.Application
        Dim osheet As Microsoft.Office.Interop.Excel.Worksheet
 
 
        oXl = CreateObject("Excel.Application")
 
        oXl.DisplayAlerts = False
 
        oXl.Workbooks.Add()
        oSheet = oXl.Worksheets(1)
 
        'TXT Datei öffnen
 
 
        Dim file As String
        Dim ofd As New OpenFileDialog
        ofd.InitialDirectory = "C:\"
        ofd.Filter = "Texte (*.txt)|*.txt| " _
           & "Alle Dateien (*.*)|*.*"
        ofd.Title = "Wählen Sie eine Datei zum Öffnen aus"
        If ofd.ShowDialog() = _
              Windows.Forms.DialogResult.OK Then
            file = ofd.FileName
        Else
            MsgBox("Vorgang wurde abgebrochen!")
            Exit Sub
        End If
 
        osheet.Cells.Select()
        osheet.Cells.NumberFormat = "@"
        osheet.Range("A1").Select()
 
        file = "TEXT;" + file
 
        With osheet.QueryTables.Add(Connection:= _
        file _
        , Destination:=osheet.Range("$A$1"))
            .Name = "Positionen"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .RefreshStyle = 1
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .TextFilePromptOnRefresh = False
            .TextFilePlatform = 1252
            .TextFileStartRow = 1
            .TextFileParseType = _
              Microsoft.Office.Interop.Excel.XlTextParsingType.xlDelimited
            .TextFileTextQualifier = _
            Microsoft.Office.Interop.Excel.XlTextQualifier.xlTextQualifierDoubl_
            eQuote
            .TextFileConsecutiveDelimiter = False
            .TextFileTabDelimiter = True
            .TextFileSemicolonDelimiter = False
            .TextFileCommaDelimiter = False
            .TextFileSpaceDelimiter = False
            .TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2)
            .TextFileTrailingMinusNumbers = True
            .Refresh(BackgroundQuery:=False)
        End With
 
        oXl.Sheets(1).Select()
 
 
        Dim sfd As New SaveFileDialog
        Dim dateiname As String
 
 
        sfd.InitialDirectory = "C:\"
        sfd.Filter = "Tabellen (*.xlsx)|*.xls| " _
           & "Texte (*.txt)|*.txt| " _
           & "Alle Dateien (*.*)|*.*"
        sfd.Title = "Wählen Sie eine Datei zum Speichern aus"
        If sfd.ShowDialog() = DialogResult.OK Then
 
            dateiname = sfd.FileName
            oXl.Application.ActiveWorkbook.SaveAs(dateiname)
        Else
            MsgBox("Der Vorgang wurde abgebrochen!")
        End If
 
 
 
        ' Mappe schließen 
        oXl.Application.Workbooks.Close()
        'Fehlermeldungen wieder aktivieren 
        oXl.Application.DisplayAlerts = True
 
    End Sub

Viele Gr??e aus Bayern!

Euer Sepp