Textbox'dan sırasıyla veri aktarımı.. Yardım?

[ayktzn]

Merhaba,
Ben textbox dan girilen verileri xls dosyasına sırasıyla aktarmak istiyorum ama devamlı aynı yere aktarıyor for döngüsü kurmama rağmen 2 gündür çözemedim olayı yardımcı olabilir misiniz?

Kodlarım Şöyle :

        Dim xls As New Excel.Application
        Dim w As Excel.Workbook = xls.Workbooks.Open("C:\veriler2.xls")
        xls.Visible = True
        For i = 1 To 65000
            If w.Sheets("Sayfa1").range("A" & i).value = Nothing Then
                w.Sheets("Sayfa1").range("A" & i) = TextBox1.Text
                w.Sheets("Sayfa1").range("B" & i) = TextBox2.Text
                w.Sheets("Sayfa1").range("C" & i) = TextBox3.Text
                Exit For
            Else
                Continue For
            End If
        Next
        w.Save()
        w.Close()
        xls.Quit()

 

[ayktzn]

yardımcı olabilecek yok mu?