esiste

codice:
Private Sub Text1_Change()
Text1.PasswordChar = "*"
End Sub

ovviamente text1 è il nome della tua casella di testo
e puoi sostituire all'asterisco altri simboli