VB6 textarea sending data w/o button

Private Sub SendToArea(MSG As String, AREANAME As String)
    Dim HTML As HTMLDocument
    Dim HTMLE As HTMLInputElement
    Set HTML = WebBrowser1.Document
    For Each HTMLE In HTML.getElementsByTagName("textarea")
        If HTMLE.Name = AREANAME Then
            HTMLE.Value = MSG
            Exit Sub
        End If
    Next
End Sub
 
Private Sub Command1_Click()
    SendToArea "Testing this", "body"
End Sub