Imports System.Net
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim wb As New WebClient
        Dim html As String
        Dim htmlSplitted(-1) As String
        html = wb.DownloadString("http://www.zoxxe.de/?action=booking_show")
        htmlSplitted = Split(html, vbCrLf)
        Dim zeile As String = htmlSplitted(104)
        MsgBox(zeile)
    End Sub
End Class