Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

Public Const GW_HWNDFIRST = 0
Public Const GW_HWNDNEXT = 2

Public Function Gethwnd() As Long
Dim ListItem As String
Currwnd = GetWindow(Application.hWndAccessApp, GW_HWNDFIRST)
Do While Currwnd <> 0
 Length = GetWindowTextLength(Currwnd)
 ListItem = Space(Length + 1)
 Length = GetWindowText(Currwnd, ListItem, Length + 1)
 If Length > 0 Then
    If InStr(1, ListItem, "Primer - старый формат ( малая модель )") > 0 Then Gethwnd = Currwnd
 End If
 Currwnd = GetWindow(Currwnd, GW_HWNDNEXT)
 DoEvents
Loop
End Function

...
'hhh = FindWindow(vbNullString, "Primer - старый формат ( малая модель )") - комментируем строку
hhh = Gethwnd
...