Access VBA show a textbox password for 4 seconds

Hi. I tried to show the password in a text box for 4 seconds with the following Access VBA code but it doesn't work

Private Sub btnEye_Click()

      txtPW.InputMask = ""
      
      PauseApp (4)

      txtPW.InputMask = "Password"
      
End Sub

Public Sub PauseApp(PauseInSeconds As Single)
    
    Dim sngStart As Single
    
    sngStart = Timer
    
    Do While sngStart + PauseInSeconds > Timer
    Loop
    
End Sub

Select allOpen in new window