Dim i As String
Console.WriteLine("Enter a String")
i = Console.ReadLine()