Result von msg.exe abfragen

Public Sub NachrichtVersenden()

        Dim p1 As New System.Diagnostics.Process
        Dim applicationPath As String = Application.StartupPath
        Dim executablePath As String = applicationPath & "\msg.exe"  
        Dim strEmpfaengerDaten As String()
        Dim Nachricht As String = Nothing

        For Each Item As String In chlsBoxEmpfaenger.CheckedItems

            strEmpfaengerDaten = Split(Item, vbTab)

            'MsgBox(strEmpfaengerDaten.Length)  
            'Kürzel  
            'MsgBox(strEmpfaengerDaten(1))  
            'PC-Name  
            'MsgBox(strEmpfaengerDaten(3))  

            Nachricht = txtBoxNachricht.Text

            If My.Computer.Network.Ping(strEmpfaengerDaten(3), 500) = True Then

                With p1.StartInfo

                    .FileName = executablePath

                    If strEmpfaengerDaten(1) = "" Then  
                        strEmpfaengerDaten(1) = "*"  
                    End If
                    .Arguments = strEmpfaengerDaten(1) & " /SERVER:" & strEmpfaengerDaten(3) & " /time:3600 /v " & Nachricht  
                    .UseShellExecute = False
                    .ErrorDialog = False
                    .RedirectStandardOutput = True
                    .RedirectStandardError = True
                    .CreateNoWindow = True

                End With
                With p1
                    .Start()
                    .WaitForExit()
                End With
            End If

        Next

        MsgBox("Nachricht" & vbCrLf & vbCrLf & Nachricht & vbCrLf & vbCrLf & "wurde versendet.", , "Info")  
        UnCheckAll()
        txtBoxNachricht.Text = ""  

    End Sub

With p0.StartInfo
                .CreateNoWindow = True
                .FileName = "net.exe"  
                .Arguments = " view"  
                .RedirectStandardOutput = True
                .UseShellExecute = False

                With p0
                    .Start()
                    .WaitForExit(1000)
                    Dim result As String = ""  
                    While .StandardOutput.Peek > -1
                        result = .StandardOutput.ReadLine()
...