Need help with several things about text files

[Nightwalker83]

Try this:

Private Sub Command1_Click()
Dim str As String
Dim i As Integer
Dim entry As String
ff = FreeFile
 
Open App.Path & "\test.txt" For Input As #ff
For i = 0 To Len(ff) + 1
Input #ff, entry
List1.AddItem entry
str = entry
Next i
MsgBox (str)
Close #ff
End Sub