Code not reading entries !

l save some entries with the following code
......................................
Dim i
Dim a1, b1, c1 As String

Open "c:\xxxx\Entries.Dat" For Append As #2
For i = 1 To ItemCount
Write #2, a1(i), b1(i), c1(i)
Next i
Close #2
..................................................
l check the entries.Dat in the xxxx folder and the entries are there


however when l want the entries to be written in the LV with the foll code they are NOT
it should be noted that if the entries.Dat is in the App.Path , the reading code works fine and the entries are presented in the LV
..........................................
Dim a1, b1, c1 As String
Dim itm as ListItem

Open "c:\xxxx\Entries.Dat" For Append As #2

Do Until EOF(2)
Input #2, a1, b1, c1
Set itm = LV1.ListItems.Add(, , a1)
itm.SubItems(1) = b1
.....................................

Loop

Close #2
..................................
any ideas please ..