Visual Basic - Ayuda con Exe Externo

Hola Amigos, en una nota de hace dias preguntaba respecto de como ejecutar aplicaciones externas mediante Visual Basic 6.0. Ejecutar la apliación no es el problema, mi problema redica en que deseo ejecutar la aplicación externa de forma Modal, se decir que mi aplicación quede inactivada mientras se ejecuta la aplicación externa.

Como puedo hacer eso?, es posible?

Quedo en espera de sus respuestas...

Por ahora encontre esto.

Option Explicit

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const SYNCHRONIZE = &H100000
Private Const INFINITE = &HFFFF
Private Const WAIT_OBJECT_0 = 0
Private Const WAIT_TIMEOUT = &H102

Private Sub Form_click()
Dim llngProcID As Long
Dim llngWinHwnd As Long
Dim llngRetVal As Long

llngProcID = Shell("c:\windows\system32\notepad.exe", vbNormalFocus)

If llngProcID <> 0 Then

llngWinHwnd = OpenProcess(SYNCHRONIZE, 0, llngProcID)
DoEvents
If llngWinHwnd <> 0 Then
llngRetVal = WaitForSingleObject(llngWinHwnd, INFINITE)
CloseHandle (llngWinHwnd)
End If
End If
MsgBox "Terminado"
End Sub

saludos.-