txt y coordenadas en vb6

[essolo]

hola:
He intentedo dar color diferente a cada block pero no lo logro; intente algo como:

enum color
azul
rojo
blanco
amarillo
verde
end enum
dim block as long

HAY_DATOS = False
CONT = 0
I = 1
strRUTA_ARCH = "D:\Me\Down\New\Exe\COORDENADAS.TXT"

Open strRUTA_ARCH For Input As #1
Do While EOF(1) = False
Line Input #1, DATA

for block = 1 to ubond(color)
If Trim(DATA) = "block(color) " & I Then
HAY_DATOS = True
I = I + 1
exit for
else
etc...
etc...
etc...

Evidentemente hay algo garrafal, la cuestion es que no se que es.
Ya he leido algunos ejemplos pero no me sale.
Nuevamente les ruego por ayuda. de antemano muchas gracias.
Saludos.