I want a input box to show * instead of text when info is entered

I have and input box where employees enter a password, how do i change the code so that instead of showing the text it shows *. Thanks for any help

Private Sub cmb4_change()
    Dim pwd As String
    Dim Oops As Boolean
    
    If LockEvent Then Exit Sub
    LockEvent = True
    'Application.EnableEvents = False
    
    pwd = Application.InputBox("Password for " & cmb1.Value & ":", "Enter Password", Type:=2)
    If pwd = "" Then
        cmb1.Value = ""
        LockEvent = False
        'Application.EnableEvents = True
        Exit Sub
    End If
            
    Select Case cmb1.Value
        Case "J. Flack"
            If pwd <> jflack Then Oops = True
        Case "C. Robinson"
            If pwd <> crobinson Then Oops = True
        Case "O. Contreras"
            If pwd <> ocontreras Then Oops = True
        Case "R. Saling"
            If pwd <> rsaling Then Oops = True
        Case "T. Pace"
            If pwd <> tpace Then Oops = True
        Case "A. Curtis"
            If pwd <> acurtis Then Oops = True
        Case Else
            Oops = True
    End Select
     
    If Oops Then
        MsgBox "Bad password"
        cmb1.Value = ""
    End If
    
    LockEvent = False
    'Application.EnableEvents = True

Look at this link for two possible solutions

http://www.ozgrid.com/forum/showthread.php?t=72794

the link alansidman provided gives the two solutions...you obviously did not take the time to read it
the solution is either create a form with a textbox which allows for password text

or use that very long custom function

So this is a duplicate post and:

This is a duplicate post and as such does not comply with Rule 5 of our forum rules. This thread will now be closed, you may continue in your other thread.

Thread Closed.