Leer archivo .civ

[Tyrz]

compile errror.. bueno da = dejalo cuando tenga un poco de tiempo me pondre en serio
gracias

[cobein]

Ok, o compila o sigo suicidandome con cigarrillos y cervezas

Private Sub Command1_Click()
    Open Text2.Text For Binary Access Read As #1
    Read = Input(LOF(1), #1)
    Close #1
    Text1.Text = Read
    For x = 1 To Len(Text1.Text)
        num = Hex(Asc(Mid$(Text1.Text, x, 1)))
        Text3.Text = Text3.Text & num
    Next
End Sub

[cobein]

Ah algo que me olvidaba lo tenes que volver a guarda

[Tyrz]

ala ya esta muchas gracias!