Private Sub Command1_Click()
' Кнопка 1
Dim s$
Open App.Path & "\" & "server.exe" For Binary As 1
' Открываем наш сервер для двоичного доступа
s = Space(LOF(1))
Get 1, , s

'Закрываем server.exe
Close 1
txt1 = Text1 ' Текстовое поле 1

s = Replace(s, "123456789", txt1)
' Ищем в сервере текст 123456789
' (именно тот, о котором говорилось выше)
' и заменяем содержимым текстового поля 1

'Открываешь serv-build.exe
Open App.Path & "\" & "serv_build.exe" For Binary As 1

Put 1, 1, s
Close 1

MsgBox "Готово", 42, "Готово"
' Говорим юзеру, что все ок

End Sub