Dim oProcess As Process
Dim StartAnwendung As String =("msiexec.exe /a " & PfadZurMSIDatei & " /qn" & _
  "TARGETDIR=" & PfadZumExtrahierenDerMSIDatei)
Dim PfadZurMSIDatei AS String = "D:\123.msi"
Dim PfadZumExtrahierenDerMSIDatei As String = "E:\extract"
' Beispiel: Windows-Editor starten
oProcess = System.Diagnostics.Process.Start(StartAnwendung)
' Warten, bis der Prozess beendet wurde
oProcess.WaitForExit()
' Erst jetzt geht's im eigenen Code weiter...
MsgBox("Anwendung wurde beendet")

Shell("msiexec.exe /a " & PfadZurMSIDatei & " /qn TARGETDIR=" & _
  PfadZumExtrahierenDerMSIDatei)