Visual Basic - Seleccionar parte de un texto

Como, puedo seleccionar por ejemplo, las 10 primeras lineas de un archivo .txt y mostrarlas en un texbox??

Gracias.

Fijate de ésta forma:

Dim i As Long, Seleccion As String, Archivo As Variant

Archivo = Split(FileToString("MiArchivo.txt"),vbCrLf)

Seleccion = vbNullString

For i=0 To 10
Seleccion=Seleccion & Archivo(i)
Next i

Text1.Text = Seleccion

Public Function FileToString(FileName As String) As String
On Error GoTo ErrorHandler

Dim hlngFile As Long, strFile As String

hlngFile = FreeFile

Open FileName For Binary Access Read As hlngFile

FileToString = vbNullString

strFile = String(FileLen(FileName), " ")

Get hlngFile, , strFile

Close hlngFile

FileToString = strFile

Exit Function

ErrorHandler:
FileToString = Empty
End Function