Option Strict On

​

Imports System

Imports System.Collections.Generic

Imports System.Linq

Public Module Module1

    Public Sub Main()

        Dim parameters As New Dictionary(of String, String) From {{"A", "12356"}, {"B", "foo"}, {"C", "bar"}}

        Console.WriteLine(BuildUrlFromPermalinkArgumentDictionary(parameters))

    End Sub

    Private Function BuildUrlFromPermalinkArgumentDictionary(ByVal parameters As Dictionary(Of String, String)) As String

        Return String.Join("&", parameters.Select(Function(pair) $"{pair.Key}={pair.Value}"))

    End Function

End Module