La API es FindWindows
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
· lpClassName
Una cadena String que especifica el nombre de la clase con un final Null .
· lpWindowName
Una cadena String terminada en Null que especifica el nombre de la ventana
Ejemplo
Ret = InputBox("Entrar exactamente el titulo de la ventana" + Chr$(13) + Chr$(10) + "Nota: Debe ser exacto")
'Buscar la ventana
WinWnd = FindWindow(vbNullString, Ret)
If WinWnd <> 0 Then MsgBox "Se encontró la ventana..."