problem mit excel

[daschifahrer]

hallo leute
ich hab ein problem und zwar bei der datenverwatlung mit excel
und zwar gibt er mir an einer stelle immer einen fehler aus und ich find ihn nicht
kann einer von euch mal drüber schaun?
die datei sollte im mm eine zeile durchlaufen (8 spalten) und dabei alle werte ausgeben(im mm noch mit messagebox danach aber in einer liste)

Private Sub Btn_neu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_neu.Click

        Dim i As Double
        Dim sFile As String
        Dim sResult As String
        Dim Excel1 As New Microsoft.Office.Interop.Excel.Application
        sFile = "C:\Users\daschifahrer\Desktop\proggen\miniplan-maker\Minis_für_minimaker.xls" ' Dateipfad u. -name

        Excel1.Workbooks.Open(sFile) ' Datei öffnen
        Excel1.Visible = False ' Excel ist unsichtbar
        sResult = Excel1.Range("A2").Value


        For i = 1 To 8
            i = i + 1
            sResult = Excel1.Offset(0, i).Value ' hier kommt imer der fehler -.- 
            MessageBox.Show(sResult)
        Next i

        'Do While sResult <> ""
        'sResult = Excel1.Offset(1, 0).ToString
        'lst_namen.Items.Add(sResult)
        'Loop


        Excel1.ActiveWorkbook.Close()
        Excel1.Workbooks.Close()
    End Sub