txt y coordenadas en vb6

[lokoman]

Me gustaría ver uno de esos archivos para poder darte mas algo solido... No entiendo bien como lo describes:

nombre de archivo
extencion
lugar
color 1 2
etc
etc
bloque1
-10,1
-23,-11
coordenadas
coordenadas
coordenadas
etc
bloque2
23,98
etc
etc
etc

Pero lo puedes leer de esta forma (confirma que los valores de las variables "COORDENADA_X" y "COORDENADA_Y" estén correctos):

Código vb:

Dim strRUTA_ARCH AS STRING, DATA AS STRING
    Dim HAY_DATOS AS BOOLEAN
    
    HAY_DATOS=FALSE
    strRUTA_ARCH=APP.PATH & "\COORDENADAS.TXT"
 
    Open strRUTA_ARCH For Input As #1
        Do While EOF(1) = False
            Line Input #1, DATA
        
            If Trim(DATA) = "BLOQUE1" Then
                HAY_DATOS=TRUE
            ELSE
                IF HAY_DATOS=TRUE THEN
                   COORDENADA_X = Mid(DATA, 1, INSTR(1, DATA, ","))
                   COORDENADA_Y = Mid(DATA, INSTR(1, DATA, ",")+1)
 
                   '...TU CODIGO PARA GRAFICAR
                   '...TU CODIGO PARA GRAFICAR
                   '...TU CODIGO PARA GRAFICAR
   
                   HAY_DATOS=FALSE
                END IF
                DoEvents
            End If 'If Trim(DATA) = "BLOQUE1" Then
        Loop
    Close #1