I'm using this code
I want it to send Hello to text1.text

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 Sub Command1_Click()
Dim sText As String
sText = "Hello"
SendMessage Text1.hwnd, WM_SETTEXT, 0, ByVal sText
End Sub

its not working