Private Declare Function GetDlgItem Lib "user32.dll" ( _
     ByVal hDlg As Long, _
     ByVal nIDDlgItem As Long) As Long
 
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 GetWindowTextLength Lib "user32.dll" Alias _
  "GetWindowTextLengthA" ( _
     ByVal hwnd As Long) As Long
 
Private Function GetTextFromCtrl(ByVal hParent As Long, ByVal CtrlID As _
  Integer) As String
    Dim sBuffer As String
    Dim hCtl As Long
 
    hCtl = GetDlgItem(hParent, CtrlID)
    If hCtl = 0 Then Exit Function
 
    sBuffer = Space(GetWindowTextLength(hCtl) + 1)
    If Len(sBuffer) < 2 Then Exit Function
 
    GetWindowText hCtl, sBuffer, Len(sBuffer)
 
    GetTextFromCtrl = Trim(sBuffer)
End Function
 
Private Sub Command1_Click()
    MsgBox GetTextFromCtrl(Me.hwnd, 1)
End Sub
 
Private Sub Form_Load()
    Text1.Text = "Hello World!"
End Sub