Abro um arquivo TXT no List, porém, só aparece a barra de rolagem vertical...

Tento usar com uma caixa de texto, só grava uma linha.. abaixo meu código

 

iARQ = FreeFile
  Open sArquivo For Input As iARQ

  'Verificando se o arquivo está em branco:
  If LOF(iARQ) = 0 Then
    'O arquivo está em branco.
    MsgBox "O arquivo está em branco!", vbExclamation, _
           "ATENÇÃO!!!"
    'Fecha o arquivo
    Close iARQ
    Exit Sub
  End If
 
  'Limpa o ListBox:
  'Text1.Text = ""
  Do While Not EOF(iARQ) 'Enquanto ñ chegar ao fim do arq...
    'Pega a linha atual:
    Line Input #iARQ, sLinha

    'Adiciona-a no ListBox:
    List1.AddItem sLinha
    'Text1.Text = sLinha
  Loop

  'Fecha o arquivo
  Close iARQ