Visual Basic - Panel

Hola Amigos, tengo que realizar (Simular) un panel para ingresar una clave, como si se tratara de esos tipicosa paneles de conntrol de accesos, pero no se como hacer para que :
1. me aparezcan 4 digitos en una caja de texto
2. a su vez en vez de q m aparezcan los digitos en la ca de texto, me aparezcan asteriscos (****)
Gracias

Si no vas utilizar alguna tabla de una base de datos puedes hacer esto, primeramente pon cajas de texto una con el nombre txtUsuario y otra con txtPasword y en la segunda caja de texto en la propiedad PasswordChar = "*" y asi cuando captures el usuario y el password:
Private Sub cmdAceptar_Click()
If Trim(txtUsuario) = "" Then
MsgBox "Favor de Capturar Usuario", vbInformation
txtUsuario.SetFocus
Exit Sub
ElseIf Trim(txtpasword) = "" Then
MsgBox "Favor de Capturar Password", vbInformation
txtpasword.SetFocus
Exit Sub
End If

If UCase(Trim(txtUsuario)) = "USUARIO" And UCase(Trim(txtpasword)) = "123" Then
MsgBox "Bienvenido", vbInformation
Else
MsgBox "Datos Erroneos...Verifique Por Favor", vbCritical
End If

End Sub

Private Sub txtpasword_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdAceptar_Click
End If
End Sub