creo q tb puede usar print, pero uso el write xD
De todas formas creo q es lo q dijo Spider-Net...
Yo pongo esto dentro de un private sub:
Text2.Text = cifrar(Text1.Text, "XsG5")
Y al poner cifrar llama a la funcion, q esta dentro del mismo form, eso me funciona si lo pongo desde un boton como he puesto antes, pero como quiero q lo haga automaticamente pues pense en el otro code (esta tb mas arriba) pero nada, siempre me sale en blanco y dos comillas xD
* Referente a lo q puesto aora novlucker, esq copie el code d un proyecto distinto pero con el mismo code , enfin q es normal q al leerlo te hayas rayao jeje, el fallo no ta ai yo kreo que anda en la forma de llamarlo.. ( aora pongo el code correcto )
Private Sub E1C()
On Error GoTo fallo
Open "C:\xxxxx.txt" For Input As #211
Do
Input #211, f
Loop Until EOF(201) = True
Close #211
Close
Call E2C
e:
Exit Sub
fallo:
Close #211
Resume e
End Sub
Private Sub E2C()
On Error GoTo fallo
Text1.Text = f
Text2.Text = cifrar(Text1.Text, "Xs9bE2P7#G5")
f = Text2.Text
Open "C:\xxxxx.txt" For Output As #135
Write #135, f
...
Mostrar Mensajes
