Module Module1
    Private Declare Function FindWindow Lib "user32.dll" _
        Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String _
        ) As Long
 
    Sub Main()
        Dim FensterHandle As Long
        FensterHandle = FindWindow(vbNullString, "Rechner")
        MsgBox(FensterHandle)
 
    End Sub
 
End Module

Module Module1
      Private Declare Function FindWindowEx Lib "user32" _
        Alias "FindWindowExA" ( _
        ByVal hWndParent As Integer, _
        ByVal hWndChildAfter As Integer, _
        ByVal lpszClass As String, _
        ByVal lpszWindow As String _
            ) As Integer
 
  Sub Main()
    Dim FensterHandle As Integer
    Dim Steuerelement As Integer
    FensterHandle = FindWindowEx(0, 0, vbNullString, "Rechner")
    'Steuerelement = FindWindowEx(FensterHandle, 0, "Bearbeiten", vbNullString)
 
    MsgBox(FensterHandle)
    'MsgBox(Steuerelement)
 
  End Sub
 
End Module