< Public Function GetRootOfDomain (URL As String) As String (?)

Comments

    
    
    '--------------------------------------------------------------
    '--------------------------------------------------------------

Public Function GetRootOfDomain (URL As String) As String

    GetRootOfDomain = GetPartOfURL(URL, 1) & "://" & GetPartOfURL(URL, 3) & "/"
End Function

Copying, Return to index