[Amin_Mansouri]

درود
تو فرم سمپل هست بگردید :
اینم یک روش برای خواندن فایل txt

کد:

Dim ff As Long
Dim line As String
ff = FreeFile
Open App.Path & "\list.txt" For Input As #ff
Do While Not EOF(ff)
      Line Input #ff, line
      'make sure we're not adding a blank line
      If Len(line) Then List1.AddItem line
Loop
Close #ff