Una de las API s que podés utilizar el FindWindows
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Command1_Click()
Dim WinWnd As Long
Shell "Notepad.exe"
WinWnd = FindWindow(vbNullString, "Sin título - Bloc de notas")
MsgBox "Este es el handle del Block de notas : " & WinWnd
End Sub