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

    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