sometime my sendmessage to diablo 2 works but sometime dont here my code



-------------------------------------

Public Sub D2ChatSend(lpWindowName As String, strString As String)
Dim c$, i&, w&
w& = FindWindow(vbNullString, lpWindowName$)

If w& = 0 Then MsgBox "Window not found!", vbCritical, "Error!"
For i& = 1 To Len(strString$)
c$ = Mid$(strString$, i, 1)

Call SendMessage(w&, WM_CHAR, Asc(c$), 0&)
Call SendMessage(w&, WM_KEYDOWN, Asc(c$), 0&)


Next i
End Sub
-----------------------------------------------------