Imports System
Imports System.Text.RegularExpressions
Public Module Module1
Public Sub Main()
Dim s As String = "ab12c 9836 xy%^(s 33 * 9 100 200ppp"
Dim numbers As String = Regex.Match(s, "\d+").Value
Dim n As Integer = Integer.Parse(numbers)
Console.WriteLine(n)
End Sub
End Module
' run:
'
' 12
'