输入密码能用星号隐藏输入的 InputBox 对话框

'需要引用 WIN32 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 _
   .....................
...........