imports System
imports System.Text.RegularExpressions
Public Class Test
Public Shared Sub Main()
Dim s As String = "123 vb.net, 9 php, 3009 ja11va 3.14 c++"
Dim digits() As String = Regex.Split(s, "\D+")
Dim mx As Integer = Convert.ToInt32(digits(0))
For i As Integer = 1 To digits.Length - 2
If (Convert.ToInt32(digits(i)) > mx) Then mx = Convert.ToInt32(digits(i))
Next
Console.WriteLine(mx)
End Sub
End Class
' run:
'
' 3009
'