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