[VB08]Leggere dati di una lista tramite file di testo

[GhostFire]

Ciao,sto provando da ormai ore a fare questa funzione,il codice non contiene errori ma solo un 'warning'.Il codice è questo:

    Private Sub LoadList(ByVal lst As ListBox, ByVal file As String)
        On Error GoTo err
        Dim a As String


        FileOpen(1, file, OpenMode.Input)
        While Not EOF(1)

            Write(1, a)

            lst.Items.Add(a)
        End While
        FileClose()
        Exit Sub
err:
        MsgBox("Error")
    End Sub

Il warning lo ho sottolineato.(Ho seguito il codice base di FetBig)