Imports System.Threading.Tasks
Imports Microsoft.VisualBasic

Public Class LinkFactory
    Public Shared Async Function createLink(link As String, par1 As String, par2 As String, par3 As String) As Threading.Tasks.Task(Of String)
        Dim factorymain As StringBuilder = New StringBuilder(link)
        factorymain.AppendFormat("?P1={1}&P2={2}", par1, par2, par3)
        Dim result As String = factorymain.ToString
        Await Task.Delay(2)
        Return result
    End Function
End Class