Imports System
Imports System.Linq
Public Class StringContainsOnlyDigits_VB
Public Shared Function IsDigitsOnly(ByVal str As String) As Boolean
Return str.All(AddressOf Char.IsDigit)
End Function
Public Shared Sub Main(ByVal args As String())
If IsDigitsOnly("90931587") Then
Console.WriteLine("yes")
Else
Console.WriteLine("no")
End If
If IsDigitsOnly("F35F16F15") Then
Console.WriteLine("yes")
Else
Console.WriteLine("no")
End If
End Sub
End Class
' run:
'
' yes
' no
'