Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
    (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As _
    Any) As Long
Private Const WM_GETTEXT = &HD
Private Const WM_GETTEXTLENGTH = &HE
 
 
   Dim nTextLen As Long, sText As String
   nTextLen = SendMessage(TSHwnd, WM_GETTEXTLENGTH, 0, ByVal 0)
   sText = String$(nTextLen, Chr$(0))
   SendMessage TSHwnd, WM_GETTEXT, nTextLen, ByVal sText
 
   MsgBox "Im Log steht folgendes:" & vbCrLf & sText

____________________________________