I need SendMessage or PostMessage Help

[bushmobile]

as TTn said, you need to send it to the Edit window:

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _
    ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
 
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_SETTEXT = &HC
 
Private Sub Command1_Click()
    Dim lhWnd As Long
    
    lhWnd = FindWindowEx(0&, 0&, vbNullString, "Untitled - Notepad")
    lhWnd = FindWindowEx(lhWnd, 0&, "Edit", vbNullString)
    
    If lhWnd Then
        SendMessage lhWnd, WM_SETTEXT, 0&, ByVal "Hello"
    Else
        MsgBox "No way"
    End If
End Sub