Imports System
Module GetNumericValueSample
Sub Main()
Dim str As String
str = "input: 1"
Console.WriteLine(Char.GetNumericValue("8"c))
Console.WriteLine(Char.GetNumericValue(str, 7))
End Sub
End Module