vb.net shell线程执行完成后再运行以后处理 函数

Public Shared Function ExecuteCmd(ByVal cmd As String) As String
        Dim startInfo As New ProcessStartInfo("cmd.exe")
        With startInfo
            .Arguments = "/C " + cmd
            .RedirectStandardError = True
            .RedirectStandardOutput = True
            .UseShellExecute = False
            .CreateNoWindow = True
            .WindowStyle = ProcessWindowStyle.Hidden
        End With

        Dim p As Process = Process.Start(startInfo)
        Dim strOutput As String = p.StandardOutput.ReadToEnd()
        Dim strError As String = p.StandardError.ReadToEnd()

        p.WaitForExit()

        If (strOutput.Length <> 0) Then
            Return strOutput
        ElseIf (strError.Length <> 0) Then
            Return strError
        End If

        Return ""
    End Function