CheckBox to see password

[Ingolf]

Show me the code you have now (as integrated with the code that Admin posted for you)... that way I don't have to try and guess what you have done or what you actually need.

This is the code:

Private Sub CheckBox1_Click()
    If Me.CheckBox1.Value Then
        Me.CheckBox1.Caption = "Password invizible"
        Me.TextBox1.PasswordChar = "*"
        TextBox1.SetFocus
    Else
        Me.CheckBox1.Caption = "Show password"
        Me.TextBox1.PasswordChar = vbNullString
        TextBox1.SetFocus
    End If
End Sub

Except line in red I get from Admin.
Thank you.