Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
    Button1.Click
 
        Dim objExcel As Object = Nothing
        Dim objBook As Object = Nothing
        Dim objSheet As Object = Nothing
 
        Try
            objExcel = GetObject(, "Excel.Application")
        Catch ex As Exception
            Try
                objExcel = CreateObject("Excel.Application")
            Catch ex1 As Exception
                MsgBox("Applikation nicht installiert!", MsgBoxStyle.Critical, _
                  "Error")
            End Try
        End Try
 
        objExcel.Visible = True ' zu Testzwecken 
        objBook = objExcel.Workbooks.open( _
          "C:\Users\pweiss\Desktop\DeinDateiname.xls")
        objSheet = objBook.Worksheets("Overview")
 
        objSheet.SaveAs("C:\Users\pweiss\Desktop\Test.txt", _
          objExcel.xlFileFormat.xlTextWindows)
 
 
 
    End Sub
End Class