Imports System

Public Module Module1

    Public Sub Main()

        'Contain the URLs

        Dim urls As String = String.Format("|-> http://www.example.com/fr/page-name (09:00:13){0}|-> http://www.example.com/fr/page-name (09:00:19){0}|-> http://www.example.com/fr/page-name (09:01:41){0}|-> http://www.example.com/en/page-name (09:02:29)", Environment.NewLine)

        Console.WriteLine(urls) 'Display the urls(unformatted)

​

        'Placeholder variable for For/Each

        Dim u As Uri

​

        'Iterate through each URL

        For Each url As String In urls.Split({Environment.NewLine}, StringSplitOptions.None)

            'Split the current line by the space character, get the second item, and convert it into a URI

            u = New Uri(url.Split(" "c)(1))

​

            'Print the language which is the second segment of the URI

            Console.WriteLine(u.Segments(1))

        Next

    End Sub

End Module