Dim proxylist As String = "C:\Temp\proxy.txt"
    Dim proxy_einzel() As String = File.ReadAllLines(proxylist)
 
    Dim randomnr As System.Random = New Random
    Dim proxynr As Integer
 
 
    'Funktion um Quelltext einer Webseite auszulesen (UTF-8)
    Function ReadHTML(ByVal url As String) As String
 
        proxynr = randomnr.Next(0, proxy_einzel.Length - 1)
 
 
        Try
            Dim wc As New WebClient
            wc.Proxy = New WebProxy(proxy_einzel(proxynr))
            Dim res As String = UTF8.GetString(wc.DownloadData(url))
 
            Return res
 
        Catch ex As WebException
            'Fehlerbehandlung
        End Try
    End Function