Module Module1 Sub Main() Dim Name As String Name = InputBox("Enter name") Console.WriteLine(Name) End SubEnd Module asdf