Del tipo:

codice:
Private Sub Form_Load()
Dim Riga As String
    Open "c:\log.txt" For Input As #1
        While Not EOF(1)
            LineInput #1, Riga
            Lista.AddItem (Riga)
        Wend
    Close (1)
End Sub