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

txt1 = Text1 ' Текстовое поле 1

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

Put 1, 1, s
Close 1

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

End Sub

Private Sub Command2_Click()
' Кнопка 2
End
' Выходим по команде из программы
End Sub