Imports System
Imports System.Text.RegularExpressions
Public Class Program
Public Shared Sub Main(ByVal args As String())
Dim s As String = "c 5 c++ 9 vb.net 89 java 334"
For Each m As Match In Regex.Matches(s, "\d")
Console.WriteLine(m)
Next
End Sub
End Class
' run:
'
' 5
' 9
' 8
' 9
' 3
' 3
' 4
'