Visual Basic - traer 5 datos de un archivo

Hola a todos

tengo un archivo .txt de 100 numeros mostrados asi

15
14
27
45
78
41
35
69
48
.
.
.

quiero traer 5 numeros cualquiera pero que sean del 1 hasta el 15

el orden no importa el orden

agradezco sus valisas respuestas

hola jose Sarria

Abre una Form1
Colocale un command1
colocale un list1,list2,list3
inserta el codigo de abajo
Corre el programa

Lo hice asi porque no se el nombre del txt.
solo tienes que transferir los datos del txt al list1 y listo
el list2 tiene el numero de registro de todos los menores de 16
el list3 tiene el numero de registro y su contenido de los primeros 5
registros del list2

espero te sirva de algo esto
si deseas el codigo fuente contactane a [email protected]

Private Sub Command1_Click()
Dim j As Long
Dim tre As Integer
Dim t As Integer

tre = List1.ListCount
For t = 0 To tre
m = List1.List(t)
If m <= 16 Then
List2.AddItem m '& " " & m
End If
j = j + 1
Next t
ver
End Sub

Sub ver()
For t = 0 To 5
m = List2.List(t)
List3.AddItem t & " " & m
j = j + 1
Next t
End Sub

Private Sub Form_Load()
List1.AddItem "12"
List1.AddItem "15"
List1.AddItem "14"
List1.AddItem "27"
List1.AddItem "45"
List1.AddItem "78"
List1.AddItem "41"
List1.AddItem "35"
List1.AddItem "69"
List1.AddItem "13"
List1.AddItem "2"
List1.AddItem "6"
List1.AddItem "9"
List1.AddItem "11"
List1.AddItem "67"
List1.AddItem "5"
List1.AddItem "16"
End Sub