Gracias por responder
Indagando un poco (bastante) he encontrado la manera de editar variables,la verdad es bastante sencillo, se puede decir que me estaba ahogando en un baso de agua :S
Bueno lo coloco por si a alguien le sirve
Para hacer el programa editable
Código:
Dim variablea As String
Dim variableb As String
Private Sub Form_Load()
Dim variable1 As String * 122 '//asignamos un valor justo ala variable
Dim variable2 As String * 20
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1 'a cada ejecucion
' nos leemos para ver si las variables fueron editadas
Get #1, LOF(1) - 141, variable1 ' extraemos los valores de las variables
'141 para no romper la variable 122 + 20 = 142 leemos solo asta 141
Get #1, , variable2 'Extraemos segunda variable
Close #1
variablea = Trim(variable1) '//Quitamos espacios de las variables y las mostramos en cajas de texto. ( o el control que quieran )
'recuerda que tenemos que quitar espacios porque no sabemos si se ocupo todo
variableb = Trim(variable2)
End Sub
Se declaran 4 variables, lo que quieres editar es variable1, variable2, cuando las editas las otras dos variables obtienen obtienen el valor de variable a y b ;) entonces para mostrar seria asi text1.text=variablea
Para editarlo seria asi:
Código:
Private Sub Command2_Click()
Dim variable1 As String * 122 ' aqui se especifica el valor exacto igual q el editable
Dim variable2 As String * 20
variable1 = Text1.Text 'declaracon de variables
variable2 = Text2.Text
Open file For Binary As #1 'Esto nos permite abrir el archivo de forma binaria
Put #1, LOF(1) + 1, variable1
Put #1, LOF(1) + 1, variable2
Close #1 '//cerramos el archivo.
End Sub
salu2