Class Tester Shared Sub Main() Dim userInput As String userInput = " asdf " Console.WriteLine(UCase(userInput)) End SubEnd Class ASDF