Option Explicit
Dim sWindowText$, L&, wndRoot&, wndSub&
 
Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" ( _
        ByVal hwnd As Long, _
        ByVal lpString As String, _
        ByVal cch As Long) As Long
 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
        (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long
 
Private Declare Function FindWindowEx Lib "user32" _
        Alias "FindWindowExA" ( _
        ByVal hWndParent As Long, _
        ByVal hWndChildAfter As Long, _
        ByVal lpszClass As String, _
        ByVal lpszWindow As String) As Long
 
Private Sub Form_DblClick()
  wndRoot = FindWindow(0&, "Nachrichtendienst ")  'Fenster mit Caption 
  ' "Nachrichtendienst" suchen
  If wndRoot <> 0 Then
    wndSub = FindWindowEx(wndRoot, 0, "static", vbNullString)  ' 
    ' untergeordnetes Control ermitteln
    sWindowText = Space$(1000)
    L = GetWindowText(wndSub, sWindowText, Len(sWindowText))   ' Fenstertext 
    ' des Controls ermitteln
    MsgBox Left(sWindowText, L)                 'Ausgabe des Textes in einer 
    ' MessageBox.
  End If
End Sub