Visual Basic - Passwordchar

buenas....
estoy usando un richtextbox y necesito implementar un sistema de contraseña como el passwordchar del textbox.
me baje un par de ejemplos de internet pero todos tienen fallas en el momento que uno borra el texto escrito, ya sea con backspace o delete.....
alguien sabe como hacer un sistema de contraseñas que funcione correctamente?

poque no utilizas contraseñas encriptadas, es mas sencillo ademas solo tu podras desifrarlo, y puedes guardarlo en el rich text box. aqui te envio un ejemplo, espero y te sirva de algo o te guie en tu solucion:

Option explicit
Dim TextoEncriptado As String

''Funcion encriptar textos
Function Encriptar(ByVal Texto As String) As String
TextoEncriptado = ""
For I = 1 To Len(Texto)
TextoEncriptado = TextoEncriptado & Chr(Asc(Mid(Texto, I, 1)) + 1)
Next I
Encriptar = TextoEncriptado
End Function
'''''''''''

''Funcion desencriptar Textos
Function DesEncriptar(ByVal Texto As String) As String
TextoEncriptado = ""
For I = 1 To Len(Texto)
TextoEncriptado = TextoEncriptado & Chr(Asc(Mid(Texto, I, 1)) - 1)
Next I
DesEncriptar = TextoEncriptado
End Function
'''''''''''''''