Function executeCmd(ByVal cmdexe As String, ByVal arguments As String, ByVal _
  workingdirectory As String) As String
        Dim myProc As Process = New Process()
 
        With myProc.StartInfo
            .RedirectStandardOutput = True
            .UseShellExecute = False
            .CreateNoWindow = True
            .FileName = "cmd.exe"
            .Arguments = "/C " & cmdexe & " " & arguments
            .WorkingDirectory = workingdirectory
        End With
 
        myProc.Start()
 
        Do While myProc.HasExited = False
 
 
        Loop
        Return myProc.StandardOutput.ReadToEnd()
        myProc = Nothing
 
    End Function

MsgBox(executeCmd("C:\psexec.exe", "\\" & host.Text & " -u " & user.Text & " -p" & _
  "" & pw.Text & " -c -d -n 10 -s " & Chr(34) & TextBox2.Text & Chr(34), "C:\"))