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