Imports System
Imports System.Text.RegularExpressions
Public Class Program
Public Shared Sub Main()
Dim str As String = "98 vb programming15"
Dim arr As String() = Regex.Split(str, "\D+")
Dim number As Integer = Integer.Parse(arr(arr.Length - 1))
Console.Write(number)
End Sub
End Class
' run:
'
' 15
'