Sub main()
Dim s As String
Dim bCanc As Boolean
s = InputBoxEx("Enter a number (10 digits max)", "InputboxEx", , , , , ,  10 , , True, bCanc)
End Sub

Option Explicit

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 GetDlgItem Lib "user32.dll" (ByVal hDlg As Long, ByVal nIDDlgItem 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

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal ParenthWnd As Long, ByVal ChildhWnd As Long, ByVal ClassName As String, ByVal Caption As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

                                    
Private Const EM_SETPASSWORDCHAR = &HCC
Private Const EM_LIMITTEXT As Long = &HC5
Private Const WH_CBT =  5 
Private Const HCBT_ACTIVATE =  5 
Private Const HC_ACTION =  0 
Private Const GWL_STYLE = (- 16 )


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Const ES_NUMBER = &H2000
Private Const ES_CENTER As Long = &H1&
Private Const ES_LEFT As Long = &H0&
Private Const ES_LOWERCASE As Long = &H10&
Private Const ES_RIGHT As Long = &H2&
Private Const ES_UPPERCASE As Long = &H8&
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Const STM_SETICON       As Long = &H170
Private Const WM_SETICON As Long = &H80



Private hHook     As Long
Private lMaxLen   As Long
Private lPassChar As Long
Private bNumbersOnly As Boolean
Private m_hIcon As Long
Private m_Title As String


Public Function NewProc(ByVal lngCode As Long, _
                        ByVal wParam As Long, _
                        ByVal lParam As Long) As Long
    Dim RetVal As Long
    Dim strClassName As String
    Dim lngBuffer As Long
    Dim lWnd As Long
    
    '''''''''''''''''''''''''''''''''''''''''''''''
    Dim hIconWnd 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 m_hIcon <>  0 & Then
         hIconWnd = FindWindow(vbNullString, m_Title)
        Call SendMessage(hIconWnd, WM_SETICON, m_hIcon, ByVal  0 &)
        'Call SendDlgItemMessage(hIconWnd, &H1324, WM_SETICON, m_hIcon, &H0)
        
    End If ''''''''''''''''''''''''''''''''''''''''''''''



        If Left$(strClassName, RetVal) = "#32770" Then
        
        
        
        
            If lPassChar >  0  Then
                SendDlgItemMessage wParam, &H1324, EM_SETPASSWORDCHAR, lPassChar, &H0
            End If

            If lMaxLen >  0  Then
                SendDlgItemMessage wParam, &H1324, EM_LIMITTEXT, lMaxLen, &H0
            End If

            If bNumbersOnly Then
                lWnd = GetDlgItem(wParam, &H1324)
                If Not lWnd =  0  Then
                    SetWindowLong lWnd, GWL_STYLE, GetWindowLong(lWnd, GWL_STYLE) Or ES_NUMBER  '  Or ES_RIGHT  ' or ES_CENTER ' or ES_LEFT ' or  ES_LOWERCASE  ' or  ES_UPPERCASE
                End If
            End If
            
            
        End If
    End If
    
    CallNextHookEx hHook, lngCode, wParam, lParam
End Function

Public Function InputBoxEx(Prompt As String, _
                           Optional Title As String = "", _
                           Optional Default As String = "", _
                           Optional XPos, _
                           Optional YPos, _
                           Optional HelpFile, _
                           Optional Context, _
                           Optional MaxLen As Long =  0 , _
                           Optional PasswordChar As String = "", _
                           Optional NumbersOnly As Boolean = False, _
                           Optional ByRef CancelledByUser As Boolean = False, _
                           Optional ByVal Icon As Long =  0 &) As String
                            
    Dim lngModHwnd As Long
    Dim lngThreadID As Long

    hHook =  0 
    lMaxLen =  0 
    lPassChar =  0 
    bNumbersOnly = NumbersOnly
    m_hIcon = Icon
    
    If MaxLen >  0  Then
        lMaxLen = MaxLen
    End If

    If Not PasswordChar = "" Then
        lPassChar = Asc(PasswordChar)
    End If

    
    If lPassChar >  0  Or lMaxLen >  0  Or bNumbersOnly = True Then
        lngThreadID = GetCurrentThreadId
        lngModHwnd = GetModuleHandle(vbNullString)
        hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)
    End If

    m_Title = Title
    InputBoxEx = InputBox(Prompt, Title, Default, XPos, YPos, HelpFile, Context)

    If Not hHook =  0  Then
        UnhookWindowsHookEx hHook
    End If
    
    CancelledByUser = (StrPtr(InputBoxEx) =  0 )

End Function