Imports System.Text.RegularExpressions
Module Module1
Sub Main()
Dim s1 As String = "VB.NET 13 Java 89 Python 45 C"
Console.WriteLine(Regex.IsMatch(s1, "^[0-9 ]+$"))
Dim s2 As String = "5267 2837"
Console.WriteLine(Regex.IsMatch(s2, "^[0-9 ]+$"))
End Sub
End Module
' run:
'
' False
' True