Imports System

Public Module Module1

    Public Sub Main()

        DoIt(New Uri("https://interweb.avcosystems.com/default.aspx"))  

        DoIt(New Uri("https://interweb.avcosystems.com/Schedule/"))

        DoIt(New Uri("https://interweb.avcosystems.com/ProjectManager/archive.aspx"))

        Console.WriteLine()

        DoIt(New Uri("https://localhost/Interweb/default.aspx"))    

        DoIt(New Uri("https://localhost/Interweb/Schedule/"))

        DoIt(New Uri("https://localhost/Interweb/ProjectManager/archive.aspx"))

    End Sub

    Public Sub DoIt(requestUri As Uri)

        Dim redirectUri As New UriBuilder()

        redirectUri.Scheme = Uri.UriSchemeHttps

        redirectUri.Host = requestUri.Host

​

        Dim dir As String = String.Empty

        Dim parts As String() = requestUri.LocalPath.Split({"/"c}, StringSplitOptions.RemoveEmptyEntries)

        If parts.Length > 0 Then

            dir = parts(0).ToLower()

        End If

​

        redirectUri.Path = String.Concat(dir, "/default.aspx")

        redirectUri.Query = String.Concat("OidcResponse", "=true")

​

        Console.WriteLine(redirectUri.ToString())

    End Sub

End Module