EXECUTAR MSIEXEC.EXE NO VB.NET

pArquivo = arquivo msi

Private Function removeApp(ByVal pArquivo As String) As Boolean
        Try
            If File.Exists(pArquivo) = True Then
                Dim args As String = "/x " & pArquivo
                Dim p As Process = New Process()
                p.StartInfo.FileName = "msiexec.exe"
                p.StartInfo.Arguments = args
                p.StartInfo.Verb = "runas"
                p.StartInfo.UseShellExecute = True
                p.Start()
                p.WaitForExit()

                Return True
            Else
                GravaLogErro("removeApp", "Arquivo não encontrado : " & pArquivo)

                Return False
            End If
        Catch ex As Exception
            GravaLogErro("removeApp", ex.Message)

            Return False
        End Try
    End Function