VBA发送QQ信息遇到的问题。

ShellExecute 0, "open", "tencent://message/?uin=1234567", "", "", 1
SENDKEYS "你好"
一直使用这个代码发送QQ消息，但偶尔会出问题。
如果向某人发送消息后不关闭消息框，下次再次发送消息时有一定概率会无法激活消息框，也就是QQ消息框在桌面下面的任务栏里闪烁而不跳到前台来成为活动窗口，随后的SENDKEY命令就会把消息发到了EXCEL里而不发到QQ消息框里，造成混乱的局面。
一直无法解决这个问题，或许可以退而求其次，SENDKEY之前检测EXCEL是不是当前窗口，如果是就弹出警告信息？但是又不知道判断EXCEL是不是当前活动窗口的代码是什么，望各位吧友不吝赐教。