Char.GetNumericValue converts numeric Unicode character to a double-precision floating point number.
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