Quote Originally Posted by Admin View Post
This goes in Userform module.

Code:
Private Sub CheckBox1_Click()
    If Me.CheckBox1.Value Then
        Me.TextBox1.PasswordChar = "*"
    Else
        Me.TextBox1.PasswordChar = vbNullString
    End If
End Sub
adjust the checkbox and text box name.
You can shorten that code down to this...

Code:
Private Sub CheckBox1_Click()
  TextBox1.PasswordChar = Left("*", -CheckBox1.Value)
End Sub
If one plans to type this in instead of copy/pasting it... note the minus sign in front of the CheckBox1.Value argument (it can easily be overlooked).