Как вводить пароль под видом звездочек - VB

Формулировка задачи:

Мне нужно поставить пароль на программу? сам пароль я так то поставил вот:

Private Sub Form_Load()
Dim a As String
a = InputBox("Ввести пароль")
If a <> "защита" Then End
End Sub

но мне нужно чтобы он не был виден,т.е.чтобы были ***

Решение задачи: «Как вводить пароль под видом звездочек»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
a$ = Text1.Text
If a$ <> "защита" Then End
End Sub
 
Private Sub Form_Activate()
Text1.PasswordChar = "*"
Command1.Caption = "Ввод"
End Sub
                        