Imports System
Imports System.Text.RegularExpressions
 
Public Class Test
	Public Shared Sub Main()
		Dim Verbs() As String = FindVerbs("I am playing with my helicopter. It's flying very fast.")
 
                Console.WriteLine(Verbs(0)) 'Prints "play"
                Console.WriteLine(Verbs(1)) 'Prints "fly"
	End Sub
 
        Public Shared Function FindVerbs(ByVal Input As String) As String()
            Dim Matches As MatchCollection = Regex.Matches(Input, "\p{L}+(?=ing[^\p{L}])", RegexOptions.IgnoreCase)
            Dim ReturnArray(Matches.Count - 1) As String
            For x As Integer = 0 To Matches.Count - 1
                ReturnArray(x) = Matches(x).Value
            Next
            Return ReturnArray
        End Function
End Class

SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uVGV4dC5SZWd1bGFyRXhwcmVzc2lvbnMKClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlEaW0gVmVyYnMoKSBBcyBTdHJpbmcgPSBGaW5kVmVyYnMoIkkgYW0gcGxheWluZyB3aXRoIG15IGhlbGljb3B0ZXIuIEl0J3MgZmx5aW5nIHZlcnkgZmFzdC4iKQoKICAgICAgICAgICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKFZlcmJzKDApKSAnUHJpbnRzICJwbGF5IgogICAgICAgICAgICAgICAgQ29uc29sZS5Xcml0ZUxpbmUoVmVyYnMoMSkpICdQcmludHMgImZseSIKCUVuZCBTdWIKCiAgICAgICAgUHVibGljIFNoYXJlZCBGdW5jdGlvbiBGaW5kVmVyYnMoQnlWYWwgSW5wdXQgQXMgU3RyaW5nKSBBcyBTdHJpbmcoKQogICAgICAgICAgICBEaW0gTWF0Y2hlcyBBcyBNYXRjaENvbGxlY3Rpb24gPSBSZWdleC5NYXRjaGVzKElucHV0LCAiXHB7TH0rKD89aW5nW15ccHtMfV0pIiwgUmVnZXhPcHRpb25zLklnbm9yZUNhc2UpCiAgICAgICAgICAgIERpbSBSZXR1cm5BcnJheShNYXRjaGVzLkNvdW50IC0gMSkgQXMgU3RyaW5nCiAgICAgICAgICAgIEZvciB4IEFzIEludGVnZXIgPSAwIFRvIE1hdGNoZXMuQ291bnQgLSAxCiAgICAgICAgICAgICAgICBSZXR1cm5BcnJheSh4KSA9IE1hdGNoZXMoeCkuVmFsdWUKICAgICAgICAgICAgTmV4dAogICAgICAgICAgICBSZXR1cm4gUmV0dXJuQXJyYXkKICAgICAgICBFbmQgRnVuY3Rpb24KRW5kIENsYXNz