traer 5 datos de un archivo

[pkj]

dim Linea as string
Dim NumFichero as integer
Dim Contador as integer
numFichero=Freefile
open NombreYCaminoDelFicheroTXT for input as #numFichero
Contador=1
Do Until EOF(NumFichero)
line input #numfichero, linea
if val(linea)<=15 then
numeros(contador)=val(linea)
contador=contador+1
if contador>5 then exit do
endif
loop
Close #numfichero

'Si se acaba el fichero y no hay 5 numeros puedes avisar
if contador<5 then msgbox "atencion"

Creo que esto sirve

Numeros() debe ser un array de enteros que pueda accederse desde esta sub