Dim wnd As Long
        Dim hEdit As Long
        Dim TL As Long
        Dim TheText As String
        wnd = FindWindow("#32770", "Notepad")
        hEdit = GetDlgItem(wnd, 1000)
        TL = SendMessage(hEdit, WM_GETTEXTLENGTH, 0, 0)
        TL = TL + 1
        TheText = Space$(TL)
        TL = SendMessage(hEdit, WM_GETTEXT, TL, TheText)
        MsgBox(Leftt(TheText, TL))