Как отловить вводимый в IE текст. Ошибки в коде препятствуют загрузке проекта - VB

Формулировка задачи:

VB 6.0 (Винд XP HE). Надо отловить вводимый в ИЕ текст. Нашёл такой пример:

Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
 
Public Const VK_TAB = &H9 ' Константа для TAB key. 
' константы для других кнопок посмотрите в API вьювере
' Поместите в событие Timer: 
If GetAsyncKeyState(VK_TAB) And KEY_SHIFT = True Then
msgboх "Кто то трогает ТАБ", vbinformation
End If

Сделал стандартный проект, но он не хочет запускаться. Выдаёт следующее сообщение "Constants,fixed-length strings,arrays,user-defined types and declare statements not allowed as public members of object modules" Может мне надо чего-то добавить или галку где-нибудь поставить ???... Подскажите любителю!!

Решение задачи: «Как отловить вводимый в IE текст. Ошибки в коде препятствуют загрузке проекта»

textual
                            Листинг программы 
                        
                            If GetAsyncKeyState(VK_TAB) And GetAsyncKeyState(VK_SHIFT) Then