VB.Net, attendere la chiusura di un programma Notepad

Il seguente esempio di codice, illustra come attendere la chiusura di un programma, in particolare Notepad

Dim lngTaskId As Long

lngTaskId = Shell("notepad", AppWinStyle.NormalFocus, True)

If lngTaskId = 0 Then

MessageBox.Show("Chiuso")

End If