fejl ved load af en fil ?

Jeg bruger denne kode til at loade :

Private Sub CmdLoad_Click()
Dim itemm(1) As String
If Dir(fil & "Words.Txt") <> "" Then

    Open fil & "Words.Txt" For Input As #1
While EOF(1) = False
DoEvents
        Input #1, itemm(0), itemm(1)
Set myitem = LstOrd.ListItems.Add()
myitem.Text = itemm(0)
myitem.SubItems(1) = itemm(1)
DoEvents
Wend
Dim ost As String
    Close #1
End If

og denne til at save :

Private Sub CmdSave_Click()
Dim search1
Open fil & "Words.txt" For Output As #1
For search1 = 1 To LstOrd.ListItems.Count
DoEvents
Print #1, LstOrd.ListItems(search1).Text; ",", LstOrd.ListItems(search1).SubItems(1); ","
DoEvents
Next search1
Print #1, ""
Close #1
End Sub

'LstOrd er et ListView component.
'det sre ikke ens ud inde i LstOrd fra man gemme det til man loader det og det ser i mine øjne ud som om der er fejl i Load koden da det ser rigtig nok ud inde i filen Words.txt