ad occhio già qua c'è un errore:

Dim WindowHandle
WindowHandle = FindWindow(vbNullString, "METIN2")