попробуй TAB-ом прокрутить контролы до нужного на твоей открытой форме

по классу окна

Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" ( _
ByVal hwnd As Long, _
ByVal lpClassName As String, _
ByVal nMaxCount As Long) As Long

Public Function FindClassByHwnd(ByVal hwnd As Long)
Buffer = Space(256)
ClassLength = GetClassName(hwnd, Buffer, 256)
FindClassByHwnd = Left(Buffer, ClassLength)
End Function

Dim hwnd as Long
Dim sClass as String

hwnd=GetFocus()
sClass = FindClassByHwnd(hwnd)
if sClass="MyClass" Then
Debug.Print "Нашли окошко"
end if