Imports System
Imports System.Text.RegularExpressions
Class MatchFirstWord
Public Shared Sub Main()
Dim text As String = "The quick brown fox jumps over the lazy dog."
Dim expression As String = "fox"
Dim regex As Regex = New Regex(expression & "\s+(\w+)")
Dim match As Match = regex.Match(text)
If match.Success Then
Dim firstWord As String = match.Groups(1).Value
Console.WriteLine($"The first word after '{expression}' is: {firstWord}")
Else
Console.WriteLine("No match found!")
End If
End Sub
End Class
' run:
'
' The first word after 'fox' is: jumps
'