Imports System
Imports System.Text.RegularExpressions
Public Module Module1
Public Sub Main()
Dim s As String = "12abc 9836 xy%^(s 33 * 9 100 200ppp"
Dim numbers As String() = Regex.Split(s, "\D+")
Dim n As Integer = Integer.Parse(numbers(numbers.Length - 2))
Console.WriteLine("{0}", n)
End Sub
End Module
' run:
'
' 200
'