Function to get proxies

Function get_proxy()
        '
        '      ____  __.__                   .___
        '     |    |/ _|__| ____    ____   __| _/____   _____   ______ ____
        '     |      < |  |/    \  / ___\ / __ |/  _ \ /     \ /  ___// ___\
        '     |    |  \|  |   |  \/ /_/  > /_/ (  <_> )  Y Y  \\___ \\  \___
        '     |____|__ \__|___|  /\___  /\____ |\____/|__|_|  /____  >\___  >
        '             \/       \//_____/      \/            \/     \/     \/
        '
        '   I hope it is useful , instagram + snapchat : kingdomsc
        '   How to use : dim proxy() as string = get_proxy
        '
        '
        Dim returns As String = Nothing
        Try
            Dim config As String = New WebClient() With {.Proxy = Nothing}.DownloadString("https://pastebin.com/raw/JTXxi6pV")
            For Each x As Match In Regex.Matches(config, "{(.*?)}-")
                Dim def As String = x.Groups.Item(1).Value
                Select Case def.Contains("patteren")
                    Case False
                        Dim url As String = Regex.Match(def, """url"": ""(.*?)""").Groups.Item(1).Value
                        Try
                            Dim urlinside As String = New WebClient() With {.Proxy = Nothing}.DownloadString(url)
                            returns &= urlinside & vbNewLine
                        Catch : GoTo error_hap : End Try
                    Case True
                        Dim url As String = Regex.Match(def, """url"": ""(.*?)""").Groups.Item(1).Value
                        Dim urlinside As String = Nothing, patteren As String = Nothing
                        Try
                            urlinside = New WebClient() With {.Proxy = Nothing}.DownloadString(url)
                        Catch : GoTo error_hap : End Try
                        patteren = Regex.Match(def, """patteren"": ""(.*?)""").Groups.Item(1).Value
                        Dim ret1 As String = Nothing
                        For Each xx As Match In Regex.Matches(urlinside, patteren)
                            If Split(xx.Groups.Item(1).Value, ".").Length > 3 Then
                                returns &= xx.Groups.Item(1).Value & ":" & xx.Groups.Item(2).Value & vbNewLine
                            End If
                        Next
                End Select
error_hap:
            Next
            If returns.EndsWith(vbNewLine) Then returns = Mid(returns, 1, returns.Length - 1)
            Return returns
        Catch : Return "error" : End Try
    End Function