Dim Linea as String Open "C:\archivo.txt" for input as #1 For i = 1 to 5 line input #1, Linea Next Close #1