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 numbers() As String = Regex.Split(s, "\D+")
For Each d As String In numbers
Console.WriteLine(d)
Next
End Sub
End Class
' run:
'
' 123
' 9
' 3009
' 11
' 3
' 14
'