Imports System
Imports System.Text.RegularExpressions
Public Class Program
Public Shared Sub Main()
Dim str As String = "vb 16 java 17"
Dim regex As Regex = New Regex("\d+")
Dim matches As MatchCollection = regex.Matches(str)
Dim num1 As Integer = Integer.Parse(matches(0).Value)
Dim num2 As Integer = Integer.Parse(matches(1).Value)
Console.WriteLine(num1)
Console.WriteLine(num2)
End Sub
End Class
' run:
'
' 16
' 17
'