How to send text betwen the application.(Using Read & Write Commands)

---

App

dim file as string = my.computer.filesystem.specialfolders.desctop & "filename.exe"
Dim sp as string = "[SP]"
'//
ystem.IO.File.AppendAllText(file, sp & textbox1.text)

Stub

Dim drop() As String = Split(System.IO.File.ReadAllText(Application.ExecutablePath), "[SP]")
MSgbox(drop(1))

---