Dim process As New Process
        With process
            With .StartInfo
                .FileName = "Anwendung.exe"
                .Arguments = Command
                .WorkingDirectory = s_path
                .RedirectStandardOutput = True
                .CreateNoWindow = True
                .UseShellExecute = False
 
            End With
            .Start()
        End With
 
 
        Dim Sr As StreamReader = process.StandardOutput
 
        MsgBox(Sr.ReadToEnd())
 
        'wait for exit
        process.WaitForExit()