VBのみでのCBTフックは動きません。C、C++等でCBTフックするDLLを作って、何らかの方法でVBから呼び出す必要があります。ちょっと以前に書いたコードを探してみます。