Перенос данных из Ехсеl в txt

подскажите код как лучше перенести,данные по столбцац из excel в *.txt

Sub Perenos()
Dim qw As Double
F = FreeFile
Open "c:\text.txt" For Output As #F
Do Until EOF(F)
qw = Worksheets("My Sheet").Cells(3).RefersToRange.Value
Print #F, qw
Loop
Close #F
End Sub

я написал но он неработает где то неправильно,подскажите
Спасибо.