Mira este:
Código
Eso seria el Builder.exe, pero el Stub.exe q va siempre en el mismo directorio del Builder.exe es este:
Private Sub Command1_Click() Dim stub As String With CD .DialogTitle = "Elija donde guardar.." .Filter = "Archivos ejecutables (*.exe)|*.exe" .ShowSave End With If CD.FileName <> vbNullString Then Open App.Path & "\Stub.exe" For Binary As #1 stub = Space$(LOF(1)) Get #1, , stub Close #1 Open CD.FileName For Binary As #2 Put #2, , stub Put #2, , "·$%&/" & Text1.Text Close #2 End If End Sub
Código
Sub Main() Dim my As String Dim data() As String Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1 my = Space$(LOF(1)) Get #1, , my Close #1 data() = Split(my, "·$%&/") ' ahora data(1) contiene el string q se le paso del builder ( el text1.text) MsgBox data(1) End Sub
Lo hice rapido una vez no me acuerdo si funcionaba pero fijate y compara.