Visual Basic - leer archivo txt e imprimir en textbox

tengo un archivo txt el cual tiene 40 palabras en lista

lo que quiero hacer es leer la primera linea y que sea mostrada en el textbox y una vez que se mostro la primera que continue con la segunda hasta llegar a la 40 solo con presionar un commandbutton

Primero referenciá el Componente Microsoft Scripting Runtime

Este es un ejemplo del MSDN
Sub Read_Files()
Dim fso As New FileSystemObject, txtfile, _
fil1 As File, ts As TextStream
Set txtfile = fso.CreateTextFile("c:\prueba.txt", True)
MsgBox "Escribiendo archivo"
' Escribe una línea.
Set fil1 = fso.GetFile("c:\prueba.txt")
Set ts = fil1.OpenAsTextStream(ForWriting)
ts.Write "Hola a todos"
ts.Close
' Lee el contenido del archivo.
Set ts = fil1.OpenAsTextStream(ForReading)
s = ts.ReadLine
MsgBox s ' Acá deberías paar la variable "s" al textBox que desees
ts.Close
End Sub

te agradesco pero lo que hize fue lo siguiente

dim varTexto As String
Open "word.txt" for input As #1
Do Until EOF(1)
Line Input#1, VarTexto
text1 = text1 & VarTexto & vbCrLf
Loop
Close #1

ese codigo se lo a