Sendkeys wont send?

Ok I had this working before but then formatted my computer and forgot all about the source :( so now I am remaking it but for some reason it wont type anything, I swear I think im missing a declaration but im not sure and it does set the wndow as forground just doesnt type :-\

VB Code:

Private Declare Function SetForegroundWindow Lib "user32" _
(ByVal hwnd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
 
Private Sub Command1_Click()
Dim WinWnd As Long, Ret As String, RetVal As Long, lpClassName As String
Ret = "Xx ThA gRiM xX : Xx ThA gRiM xX - Instant Message"
    WinWnd = FindWindow(vbNullString, Ret)
    SetForegroundWindow WinWnd
    If WinWnd Then SendKeys ("Testing Testing Test Test Testing Boo! {ENTER} {ESC}")
 
End Sub