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