Class Tester Shared Sub Main() Dim userInput As String userInput = "4" Console.WriteLine(Val(userInput)) End SubEnd Class 4