كيف احفظ لستة فى ملف نصى

السلام عليكم

انا استخدم هذا الكود لكى احفظ بيانات اللستة فى ملف نصى

File = Chr(13) & Chr(10)

For I = 0 To LstName.ListCount - 1
LstName.ListIndex = I
File = File & LstName.Text &  Chr(13) & Chr(10)
Next

F = FreeFile
Open App.Path & "\name.txt" For Output As F
Write #F, File
Close F

وتكون النتيجة فى الملف النصى هكذا

"
ahmed
mohamed
"

ولكنى اريدها هكذا

ahmed
mohamed

فما هو الكود الصحيح