---------------------------
Microsoft Visual Basic
---------------------------
Compile error:

Invalid use of AddressOf operator
---------------------------
ОК   Справка   
---------------------------

'Используемые функции API.
Private Declare Function CallNextHookEx Lib "user32" _
(ByVal hHook As Long, ByVal ncode As Long, _
ByVal wParam As Long, lParam As Any) As Long
Private Declare Function GetModuleHandle Lib "kernel32" Alias _
"GetModuleHandleA" (ByVal lpModuleName As String) As Long
Private Declare Function SetWindowsHookEx Lib "user32" Alias _
"SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, _
ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32" _
(ByVal hHook As Long) As Long
Private Declare Function SendDlgItemMessage Lib "user32" Alias _
"SendDlgItemMessageA" (ByVal hDlg As Long, _
ByVal nIDDlgItem As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function GetClassName Lib "user32" _
Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName _
As String, ByVal nMaxCount As Long) As Long
Private Declare Function GetCurrentThreadId Lib "kernel32" () _
As Long
'Константы, используемые в функциях API.
Private Const EM_SETPASSWORDCHAR = &HCC
Private Const WH_CBT =  5 
Private Const HCBT_ACTIVATE =  5 
Private Const HC_ACTION =  0 
Private hHook As Long

Function NewProc(ByVal lngCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Dim RetVal
    Dim strClassName As String, lngBuffer As Long
    If lngCode < HC_ACTION Then
        NewProc = CallNextHookEx(hHook, lngCode, wParam, lParam)
        Exit Function
    End If
    strClassName = String$( 256 , " ")
    lngBuffer =  255 
    If lngCode = HCBT_ACTIVATE Then 'Окно активировано.
        RetVal = GetClassName(wParam, strClassName, lngBuffer)
        'Имя класса обычного текстового поля.
        If Left$(strClassName, RetVal) = "#32770" Then
            'Следующая строка превращает обычное текстовое поле в защищенное
            'поле ввода пароля. Символ "*" можно заменить на любой другой.
            SendDlgItemMessage wParam, &H1324, _
            EM_SETPASSWORDCHAR, Asc("*"), &H0
        End If
    End If
    'Следующая строка гарантирует корректный вызов
    'всех обработчиков прерываний.
    CallNextHookEx hHook, lngCode, wParam, lParam
End Function

Function InputBoxDK(Prompt, Optional Title, Optional Default, Optional XPos, Optional YPos, _
Optional HelpFile, Optional Context) As String
    Dim lngModHwnd As Long, lngThreadID As Long
    lngThreadID = GetCurrentThreadId
    lngModHwnd = GetModuleHandle(vbNullString)
    hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)
    On Error Resume Next
    InputBoxDK = InputBox(Prompt, Title, Default, XPos, YPos, HelpFile, Context)
    UnhookWindowsHookEx hHook
End Function

Private Sub btnRasp_Click()
    Dim intRaspNumber As Integer
    
    If IsNumeric(tbRaspNumber) = True Then
        intRaspNumber = CInt(tbRaspNumber)
    Else
        MsgBox "Вы ввели неверный номер распоряжения"
        Exit Sub
    End If
    Dim strUserID As String, strPassword As String
    strUserID = InputBox("Введите логин для подключения к Way4", "Имя пользователя")
    strPassword = InputBoxDK("Введите пароль для подключения к Way4", "Пароль")