VB .Net: PasswordFromKeys

 Function PasswordFromKeys() As String Dim Key As ConsoleKeyInfo Dim Expr As String = "" Do Key = Console.ReadKey(True) Select Case Key.Key Case ConsoleKey.Enter Exit Do Case ConsoleKey.Escape Return "" Case ConsoleKey.Backspace If Expr.Length = 0 Then Continue Do Expr = Expr.Remove(Expr.Length - 1, 1) Console.Write("{0} {0}", Key.KeyChar) Case ConsoleKey.NumPad0 To ConsoleKey.NumPad9, ConsoleKey.D0 To ConsoleKey.D9, ConsoleKey.A To ConsoleKey.Z Expr += Key.KeyChar Console.Write("*") Case Else Continue Do End Select Loop Return Expr End Function 

Console.ForegroundColor = ConsoleColor.White Console.Write("{0} Type Password: ", vbTab) Console.ForegroundColor = ConsoleColor.Green Dim Password As String = PasswordFromKeys() Console.WriteLine() Console.ForegroundColor = ConsoleColor.White Console.Write("{0} Your Password is: ", vbTab) Console.ForegroundColor = ConsoleColor.Green Console.WriteLine("{0}", Password)