Option Explicit

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

Public Function GetWndText(ByVal hWnd As Long) As String
 Dim nLength As Long
 Dim sText As String
 nLength = SendMessage(hWnd, WM_GETTEXTLENGTH,  0 , ByVal  0 &)
 If nLength Then
    sText = String$(nLength +  1 ,  0 )
    nLength = SendMessage(hWnd, WM_GETTEXT, nLength +  1 , ByVal sText)
    GetWndText = Left$(sText, nLength)
 End If
End Function