Imports System.Text.RegularExpressions
Module Module1
Sub Main()
Dim s As String = "345 vb.net 98 java, 99, php 3 c#"
Dim arr() As String = Regex.Split(s, "\D+")
For Each element As String In arr
Console.WriteLine(element)
Next
End Sub
End Module
' run:
'
' 345
' 98
' 99
' 3