RAUUULLL!!!!
Tu codigo cierra el programa que tiene abierto el archivo o entendi mal. 
Si hace eso, es justamente lo que me hacia falta 

CHAAAAAAAN.
Explicame que es el serial de un pendrive 

claro, el archivo que yo abria era de longitud variable.
Si sabes cuanto vas a necesitar declaras directamente las cosas.

Dim Cadenas() As String
Dim lineas As Long
        Open "C:\loquequieras.txt" For Input As #1
            While Not EOF(1)
                ReDim Preserve Cadenas(lineas)
                Line Input #1, Cadenas(lineas)
                lineas = lineas + 1
            Wend
        Close #1

Eso use yo para meterlos en un array
(eso es todo el archivo, no solo 3 lineas)

ESO NO FUNCIONA.
Es lo mismo que borrar el Programa Theft Deterrent Agent.

(lee el post anterior )

Yo estoy escribiendo desde una en este preciso momento.

Filtros tienen el Parents Carefree, pero lo entregaron sin configurar y lo desinstale.
Ademas traen un CHIP (si gente, Es hardware) que bloquea algo ANTES de la BIOS.
El sistema funciona con dos contadores, uno de reinicios y otro de dias.
Si agotas los reinicios o los dias de encendido, la netbook se bloquea.
El codigo se genera con el hardware ID (Direccion MAC del equipo) y el numero de arranque, desde el servidor
Desde windows, el Software  "Theft Deterrent  Agent" se encarga de recibir el certificado enviado a travez de wi-fi del servidor y configurar el chip para que nos de mas dias y reinicios.
OJO que es un sistema de doble fidelidad, si tu marca de arranque no corresponde a la cantidad que figura en el servidor... KAPUT, se bloquea.

SolucionesIdeas Estupidas:
Si desinstalo "Theft Deterrent  Agent" La maquina se libera.
NOOO, Lo unico que haces es que tu pc no entienda para que ***** sirve el certificado y la maquina se bloquee inminentemente.

Sacando y poniendole la pila al bios la maquina se libera
NO, solamente te regala 10 reinicios.

---

Si les interesa, yo diseñe un software que funciona con el programa Theft Deterrent Agent que sirve para forzar la maquina a actualizar los certificados.

http://elementalcode.blogspot.com/2011/06/exomate-update-days-patch.html

Espero que esto les ayude a entender.

Espero que algun mod o alguien lo vea, y aclare como funciona este sistema

Ademas...

  NO SE HACEN TAREAS!  [/glow]

por lo que entiendo,
Al apretar tab en un juego pasa algo, aparece algo amarillo a lo que hay que hacerle click.

Entoooonces, nuestro pibe lo que quiere es

Una hotkey (tab) que active una funcion que busque a cuadrado amarillo y le haga muuuuuuchos clicks.

oseaaa, busca algo de getpixelcursor (o algo asi :S), la funcion de  79137913 que reconoce colores (que quisimos usar para cagar a la caja de tictac mas grande del mundo y no funciono) busca Hotkeys, Autoclickers y Hooks.

Creo que con eso y un manual de vb vas a ver que el juego ese es muy estupido y vas a cambiar de juego

no entiendo que queres hacer, no conozco esos dos softwares.
Explicate

esta bien pero la consigna era:

Falto un condicional sencillo