Option ExplicitPrivate 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 = &HEPublic Function GetText(ByVal ObjectHwnd As Long) As String
Dim t As Long
Dim Str() As Bytet = SendMessage(ObjectHwnd, WM_GETTEXTLENGTH, 0, 0)t = t + 1ReDim Str(t) As ByteSendMessage ObjectHwnd, WM_GETTEXT, t, Str(0)
 
GetText = StrConv(Str, vbUnicode)
  End FunctionPrivate Sub Command1_Click()
MsgBox GetText(Text1.hwnd)
End Sub