Imports System
Public Class Program
Public Shared Sub Main(ByVal args As String())
Dim str As String = "vb.net 890"
Dim character As Char = str(7)
If Char.IsDigit(character) Then
Console.WriteLine("character is numeric")
End If
End Sub
End Class
' run:
'
' character is numeric
'