Регуляркой вырезать путь до последней папки, без имени файла - Visual Basic .NET

Формулировка задачи:

Есть адреса нужна регулярка, чтобы работала на адреса, типа:

                    Листинг программы
                
http://www.cyberforum.ru/vb-net/thread1061235.html
 
https://www.cyberforum.ru/vb-net/thread1061235.html
 
http://cyberforum.ru/vb-net/thread1061235.html
 
https://cyberforum.ru/vb-net/thread1061235.html

На выходе необходимо:

                    Листинг программы
                
cyberforum.ru/vb-net/

Может быть наведет на мысли:

                    Листинг программы
                
    Public Function GetDomen(ByRef _url As String) As String
        '   Получаем имя домена
        Return New Regex("(https://)?(www.)?([A-Z0-9\-a-z]+\.){1,}([A-Za-z]{2,})").Match(_url).Groups(0).Value
    End Function

Решение задачи: «Регуляркой вырезать путь до последней папки, без имени файла»

textual
                            Листинг программы 
                        
 
                            
                        
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Dim str = "http://www.cyberforum.ru/vb-net/thread1061235.html"
        MsgBox(GetUrl(str))
 
    End Sub
 
 
    Friend Function GetUrl(ByVal url As String) As String
        Dim result as String = ""
        Dim flag As Boolean = False
 
        url = StrReverse(url)
 
        For Each chr As Char In url
            If chr = "/" Then
                flag = True
            End If
 
            If flag Then
                result &= chr
            End If
 
        Next
 
        result = StrReverse(result)
 
        If result.Contains("http://www.") Then
            result = Replace(result, "http://www.", "")
            Return result
        End If
 
        If result.Contains("https://www.") Then
            result = Replace(result, "https://www.", "")
            Return result
        End If
 
        If result.Contains("http://") Then
            result = Replace(result, "http://", "")
            Return result
        End If
 
        If result.Contains("https://") Then
            result = Replace(result, "https://", "")
            Return result
        End If
 
        Return result
    End Function