Imports System
Imports System.Text.RegularExpressions
Public Class Program
Public Shared Sub Main()
Dim array As String() = {"15 c# 1", "18 vb 5", "900 c 10", "1380 c++ 128"}
For Each str In array
Dim numbers As String() = Regex.Split(str, "\D+")
Console.WriteLine("{0}", numbers(numbers.Length - 1))
Next
End Sub
End Class
' run:
'
' 1
' 5
' 10
' 128
'