Aca les dejo el codigo entero de este ensayo:
Citar
Private Sub Form_Load()
Dim variable As String * 10
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #2
Get #2, LOF(2) - 10, variable
Close #2
Text1.Text = variable
End Sub
Private Sub Command1_Click()
MsgBox "hola " & Text1.Text & " como estas?"
End Sub
Dim variable As String * 10
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #2
Get #2, LOF(2) - 10, variable
Close #2
Text1.Text = variable
End Sub
Private Sub Command1_Click()
MsgBox "hola " & Text1.Text & " como estas?"
End Sub
A lo que el programa no deja de devolverme: "Hola como estas?" sin tomar el valor teoricamente portado en la variable y caja de texto respectivamente...
De todos modos me percate que al final de el archivo editado aparezca la cadena de texto que agrego con el editor y efectivamente aparece... Tambien tengo visible la caja de texto para cuando arranca el programa ver si se copio en su contenido la cadena asignada y nada...
Bueno... locuras del visual...
Un saludo y gracias nuevamente.