Hi

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.