La manera más fácil es usar la propiedad PasswordChar de un TextBox.
O puedes usar un código parecido al siguiente en el evento Keypress de un TextBox
Dim letters As String
'Caracteres permitidos en la contraseña
letters = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzáéíóúüÁÉÍÓÚÜñÑ0123456789"
If KeyAscii = 8 Then
If Len(mvarRespuesta) > 0 Then
'Resta un caracter a la contraseña
mvarRespuesta = Left(mvarRespuesta, Len(mvarRespuesta) - 1)
End If
ElseIf InStr(letters$, Chr$(KeyAscii)) Then
'Guarda el valor de la contraseña
mvarRespuesta = mvarRespuesta + Chr$(KeyAscii)
KeyAscii = 42
Else
KeyAscii = 0
End If
'El Ucase es para no tener que evaluar mayúsculas y minúsculas
If UCase(mvarRespuesta) = UCase(gstrMainKey) Then
'Aquí va el código para evaluar la contraseña
Endif
