Visual Basic - Contraseña

lo que quiero es que cuando presione un boton me salga una cja para escribir una contraseña(se vean los ******) para accesar a otro formulario.

'escribe la contraseña y presiona ENTER
?Suerte

Private Sub Command1_Click()
Text1.Visible = True
Text1.SetFocus
End Sub

Private Sub Form_Load()
Text1.Visible = False
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then ' si presiona la tecla enter
If Text1.Text = "form2" Then
Form2.Show
Else
If MsgBox("Contraseña incorrecta, desea continuar o ocultar caja", vbOKCancel, "Aviso") = vbOK Then
Text1.Text = ""
Text1.SetFocus
Else
Text1.Visible = False
End If
End If
End If
End Sub

Si lo que quieres es que al introducir la contraseña te aparezca ******* tienes que hacer o siguiente.

Entra en propiedades de la caja de texto
en la opcion PasswordChar le colocas * o el signo que tu quieras
PasswordChar *