VBA und ACCESS - Mehrere gleichnamige Prozesse auslesen - Einen bestimmten ermitteln, in den Vordergrund holen und Tastaturbefehle per sendkey übermitteln

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long  
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long  
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hWnd As Long) As Long  
Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long  
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long  

'Sub sucht dein Fenster und wenn es gefunden wurde wird es aktiviert und Tastendrücke an es gesendet  
Private Sub FindMyWindow()
    Dim lngHandle As Long
    Set objShell = CreateObject("wscript.shell")  
    If GetHandleFromCaption(lngHandle, "12345 Testumgebung") = True Then  
        'Fenster aktivieren  
        SetForegroundWindow lngHandle
        'Tastendrücke senden  
        objShell.SendKeys ("BlaBlaBlaBla")  
    Else
        MsgBox "Fenster wurde nicht gefunden!", vbExclamation  
    End If
    set objShell = Nothing
End Sub

' Funktion das Fenster anhand des Titels sucht  
Private Function GetHandleFromCaption(ByRef lWnd As Long, ByVal sCaption As String) As Boolean
    Dim lhWndP As Long, sStr As String
    GetHandleFromPartialCaption = False
    lhWndP = FindWindow(vbNullString, vbNullString)
    Do While lhWndP <> 0
        sStr = String(GetWindowTextLength(lhWndP) + 1, Chr$(0))
        GetWindowText lhWndP, sStr, Len(sStr)
        sStr = Left$(sStr, Len(sStr) - 1)
        If InStr(1, sStr, sCaption) > 0 Then
            GetHandleFromCaption = True
            lWnd = lhWndP
            Exit Do
        End If
        lhWndP = GetWindow(lhWndP, 2)
    Loop
End Function