Passing data between two processes using StandardOutput/StandardInput

'///// THIS CODE IS IN APP1
    Private Sub App1_StartApp2()
        Dim myprocess As New Process
        Dim processData As String
 
        '// Set process parameters for a controlled shutdown
        With myprocess.StartInfo
            .FileName = applicationPath & server & ".exe"
            .Arguments() = "/input=True,True"
            .CreateNoWindow = False
            .ErrorDialog = False
            .UseShellExecute = False
            .RedirectStandardOutput = True
            .RedirectStandardError = True
            .RedirectStandardInput = True
            .WindowStyle = ProcessWindowStyle.Normal
        End With
 
        myprocess.Start()
        myprocess.WaitForInputIdle(1000)
 
        Dim standardOutput As IO.StreamReader = myprocess.StandardOutput
 
        ' Wait for Exited event, but not more than 10 seconds.
        Const SLEEP_AMOUNT As Integer = 100
        Do While Not m_shutDownProcessExited
            m_shutDownElapsedTime += SLEEP_AMOUNT
            '// Get process output
            processData = standardOutput.ReadToEnd
            If m_shutDownElapsedTime > 10000 Then
                myprocess.Kill()
                Exit Do
            End If
            Thread.Sleep(SLEEP_AMOUNT)
        Loop
 
        If processData = "True" Then
            '.... DO some stuff
        Else
            ' Do some other stuff
        End If
    End Sub
 
'///// THIS CODE IS IN APP2
    ''
    'In App2 (This works so just focus on the sending back data)
    ''
    Private Sub MyApplication_StartupNextInstance(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupNextInstanceEventArgs) Handles Me.StartupNextInstance
        Dim inputArgument As String = "/input="
        Dim args As String()
        Dim serverStopped As Boolean = False
 
        Dim inputData As String = String.Empty
 
        If e.CommandLine.Count > 0 Then
            inputData = e.CommandLine(0)
        End If
 
        If inputData.ToLower.StartsWith(inputArgument) Then
            Dim inputName As String = inputData.Remove(0, inputArgument.Length)
 
            args = inputName.Split(CChar(","))
        End If
 
        Dim value As Boolean = CBool(args(0))
 
        If value Then
            '// Execute method
            serverStopped = server.Stop()
 
            '// Create Process Start information 
            Dim processStartInfo As New ProcessStartInfo()
 
            With processStartInfo
                .FileName = server.FullPath
                .Arguments = serverStopped.ToString
                .WindowStyle = ProcessWindowStyle.Hidden
                .CreateNoWindow = True
                .ErrorDialog = False
                .UseShellExecute = False
                .RedirectStandardError = True
                .RedirectStandardOutput = True
                .RedirectStandardInput = True
            End With
 
            '// Execute the process 
            Dim process As New Process()
            process.StartInfo = processStartInfo
            Dim processStarted As Boolean = process.Start()
 
            '// SEND BACK THE DATA ????????????? NEED HELP HERE
 
            process.WaitForExit(1000)
 
            '// HasExited is true if the application closed before the time-out.
            If process.HasExited = False Then
                'Process is still running.
                'Test to see if process is hung up.
                If process.Responding = False Then
                    'Process was not responding; force the process to close.
                    process.Kill()
                End If
            End If
 
        End If
    End Sub