Text File into Listbox

Use Line Input # statement.

Private Sub Command1_Click()

    Open "C:\MyTXT.txt" For Input As #1
    Do While Not EOF(1)
        Line Input #1, strLine$
        List1.AddItem strLine$
    Loop
    Close #1
    
End Sub