Скрыть ввод текста *****

[Dave]

Извиняюсь, ни у кого нет кода процедурки ввода текста в TextBox с одновременной заменой его на ****.

[RayShade]

Вполне есть. Проперть .PasswordChar

Установка ее в любое значение, отличное от пробела, будет заменять ввод симовлов установленным значением.

[Dave]

Спасибо за подсказку, хотя я уже справилась немного другим способом

Private Sub TextBox2_Change()
If TextBox2.Text <> String(Len(TextBox2.Text), 42) Then
ThisWorkbook.Sheets("PBD").Cells(4, 2) = TextBox2.Text
TextBox2.Text = String(Len(TextBox2.Text), 42)
End If
End Sub

* Пароль мне надо было сохранить в ячейке, а вводить его в TextBox