Private Function GetText(pHandle As Long) As String
       
    Dim Buffer As String
    Dim TextLength As Long
   
    TextLength = SendMessageAny(pHandle, WM_GETTEXTLENGTH, 0&, 0&)
    
    Buffer = String$(TextLength, 0&)
    SendMessageAny pHandle, WM_GETTEXT, TextLength + 1, Buffer
    GetText = Buffer
    
End Function