Imports System

Imports System.Web

Public Module Module1

    Public Sub Main()

        Dim path As String = "http://bob:80/bob2/bob.html"

        Dim replaceZor As String = path.Replace("http:", "https:")

        Dim builder As UriBuilder = New UriBuilder(replaceZor)

        builder.Port = 3456

        Console.WriteLine(builder.Uri.AbsoluteUri)

    End Sub

End Module