Bueno, modifica el código así:
Código PHP:
Private Sub EnumerarVentanas()
' Enumera las ventanas principales (TopWindows) '
colWin.Clear()
EnumWindows(AddressOf EnumWindowsProc, 0)
For Each s As String In colWin.Keys
If Microsoft.VisualBasic.Left(colWin(s), 6) = "Treat3" Then
' Aquí ya tenemos el hWnd en la variable s '
End If
Next
End Sub