求助这段代码有什么问题么？

求助高手，我想实现的功能，是单击后，程序能自动把这段文字复制到旺旺的聊天对话框中，
"中华人民共和国 Chinese"
旺旺的聊天对话框标题是：米朵 - xi1117
写了这段代码，但是点击后没反应，求助高手是哪里出问题了么？Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Any, ByVal lpsz1 As Any, ByVal lpsz2 As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) 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 hWndWindow As Long
    Dim hWndEdit As Long    hWndWindow = FindWindow(vbNullString, "米朵 - xi1117")    hWndEdit = FindWindowEx(hWndWindow, vbNullString, "edit", vbNullString)    SendMessage hWndEdit, WM_SETTEXT, 0, ByVal "中华人民共和国 Chinese"
End Sub