Private Sub btnWerteSchreiben_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnWerteSchreiben.Click
        Dim Exc1 As New Microsoft.Office.Interop.Excel.Application
        Dim Exc2 As New Microsoft.Office.Interop.Excel.Application
        Dim Sheet1 As Microsoft.Office.Interop.Excel.Worksheet
        Dim Sheet2 As Microsoft.Office.Interop.Excel.Worksheet
        Dim i As Integer
        Exc1.Workbooks.Open(CurDir() & "\Mappe1.xls")
        Exc2.Workbooks.Open(CurDir() & "\Mappe2.xls")
        Sheet1 = CType(Exc1.Worksheets(1), _
          Microsoft.Office.Interop.Excel.Worksheet)
        Sheet2 = CType(Exc2.Worksheets(1), _
        Microsoft.Office.Interop.Excel.Worksheet)
        For i = 0 To 7
            Sheet2.Cells(1, i + 1) = Sheet1.Cells(1, i + 1)
        Next
    End Sub

Private Sub btnWerteLesen_Click(ByVal eventSender As System.Object, _
    ByVal eventArgs As System.EventArgs) Handles btnWerteLesen.Click
        Dim Exc1 As New Microsoft.Office.Interop.Excel.Application
        Dim Sheet1 As Microsoft.Office.Interop.Excel.Worksheet
        Dim i As Integer
        Exc1.Workbooks.Open(CurDir() & "\Mappe1.xls")
        Sheet1 = CType(Exc1.Worksheets(1), _
          Microsoft.Office.Interop.Excel.Worksheet)
        For i = 0 To 7
            Text1.Text = Text1.Text & vbCrLf & CStr(Sheet1.Cells(1, i + 1))
        Next
    End Sub