Private Function DownURL(ByVal URL As String) As String
'Om ett fel inträffar gå till felhanteraren
On Error GoTo Err

'Kontrollen som frågar efter sidan
Dim WReq As System.Net.WebRequest = System.Net.WebRequest.Create(URL)

'Kontrollen som tar emot svaret från frågan
Dim WRes As System.Net.WebResponse = WReq.GetResponse()

'Variabeln som ska innehålla koden
Dim strRes As String

'Textkontroll som ser till att alla tecken kommer i normal form
Dim Enc As System.Text.Encoding

'Definiera en Streamreader för att kunna läsa från källan
Dim SR As System.IO.StreamReader = New System.IO.StreamReader(WRes.GetResponseStream(), Enc.Default)

'Läs all kod
strRes = SR.ReadToEnd

'Stäng anslutningen till sidan
WRes.Close()

'Retunera HTML-koden
Return strRes

'Avsluta funktionen
Exit Function


'Felhanteraren
Err:
'Om ett fel uppstår retunera ingenting. (Felet kan vara att användaren inte är ansluten till internet)
Return ""

'Avsluta funktionen
Exit Function
End Function