Mira no entendí bien ti pregunta pero esto es lo que yo he entendido...
Cuando leas la BD guarda el valor leído en la propiedad .Tag del objeto y en la propiedad text puedes mostrar con * tantos caracteres tenga la 'palabra' guardada en .Tag
Código:
Dim Cadena As String
Cadena = "Javier" 'imagina que javier es la lectura de la tabla
Text1.Tag = Cadena 'Guardo el valor en la propiedad .Tag
Text1.Text = String(Len(Cadena), "*") 'Muestro con *
'Para recuperar el contenido solo tienes que hacer:
Debug.Print Text1.Tag
Espero que te sirva.