Sub ReadFile(AFileName) ForReading = 1 ReadLine1 = 10 ReadLine2 = 11 Set FS = Sys.OleObject("Scripting.FileSystemObject") Set F = FS.OpenTextFile(AFileName, ForReading) i = 0 While Not F.AtEndOfStream s = F.ReadLine Select Case i Case ReadLine1 Log.Message s Case ReadLine2 Log.Message s End Select i = i+1 WEnd F.Close End Sub