Dim fso As Object, Fil As Object, Contenido As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set Fil = fso.OpenTextFile(App.Path & "\abece.txt", 1)
textbox.text = Fil.ReadAll 'Almacenamos las letras en el textbox
Fil.Close 'Cerramos el archivo

Option Explicit
Private Sub Form_Load()
    Dim sText As String
 
    sText = "a" & vbCrLf & "b" '// Esto seria el contenido del archivo
 
    Dim vItem  As Variant
 
    For Each vItem In Split(sText, vbCrLf)
        List1.AddItem vItem
    Next
End Sub