Imports System.Text.RegularExpressions
Module Module1
Sub Main()
Dim s As String = "1 VB.NET 13 Java 89 Python 99 C 4"
Dim total As Integer = 0
Dim mcollection As MatchCollection = Regex.Matches(s, "\d+")
For Each mc As Match In mcollection
total += Convert.ToInt32(mc.ToString())
Next
Console.WriteLine(total)
End Sub
End Module
' run:
'
' 206
