Visual Basic - problema con control personalizado

hola, hace tiempo genere una caja de texto personalizada donde presionas "enter" y te manda al siguiente objeto, pero ahora traté de ponerle "passwordchar" y no funciona, la propiedad si aparece y me deja cambiarla, pero no pasa nada, ¿donde está el problema? este es el código que escribí

en el load

Dim Carac as string

Public Property Get Password()
Password = Carac
End Property

Public Property Let Password(ByVal Caracter As Variant)
If IsNull(Caracter) Then
Caracter = ""
End If
If Len(Caracter) > 0 Then
If Len(Caracter) > 1 Then
MsgBox "Esta propiedad solo admite un caracter"
Else
Carac = Caracter
Text1.PasswordChar = Carac
PropertyChanged "Password"
End If
End If
End Property

les agradecería mucho su apoyo.