Imports System.Text.RegularExpressions
Console.WriteLine(" ---")
Console.WriteLine(" -------")
Console.WriteLine(" ---------------")
Console.WriteLine(" -----------------------")
Console.WriteLine(" -------------------------------")
Console.WriteLine("| Sorting Characters by 4x2y |")
Console.WriteLine(" -------------------------------")
Console.WriteLine(" -------------------")
Console.WriteLine(" ---------------")
Console.WriteLine(" -------")
Console.WriteLine(" ---")
Console.WriteLine("To exit press Enter without any input.")
Console.WriteLine("Enter string to sort?")
strInput = Console.ReadLine.ToLower
If strInput = String.Empty Then
Dim strChars() As Char = New Regex("[^a-z]").Replace(strInput, String.Empty).ToCharArray
Console.WriteLine(New String(strChars))