Private Sub Form_Load()
 
    Dim strURL_Link  As String
    Dim strURL_QuellText As String
 
        'QuellText der Page ermitteln
        strURL_Link = "http://www.siegener-zeitung.de/Heizoel/"
        strURL_QuellText = Inet1.OpenURL(strURL_Link, _
          DataTypeConstants.icString)
 
    Dim lngStart As Long
    Dim lngEnd As Long
    Dim strTempPreisString As String
    Dim strLines() As String
 
        'Den wichtigen Teil für uns ==> heraus schneiden
        lngStart = InStr(1, strURL_QuellText, "<td class=""leftbody""" & _
          "width=""110"" height=""20""" & _
          "background=""../bilder/hback.gif""> Abgabemenge</td><td" & _
          "width=""110"" class=""rightbody""" & _
          "background=""../bilder/hback.gif"">Nettopreis </td><td" & _
          "width=""110"" class=""rightbody""" & _
          "background=""../bilder/hback.gif"">MwSt. Anteil </td><td" & _
          "width=""110"" class=""rightbody""" & _
          "background=""../bilder/hback.gif"">Bruttopreis </td></tr>")
        lngEnd = InStr(lngStart + 1, strURL_QuellText, "<tr><td> </td></tr>")
        strURL_QuellText = Mid(strURL_QuellText, lngStart, lngEnd - lngStart)
 
        strLines = Split(strURL_QuellText, "</tr>")
 
    Dim ListItem As ListItem
    Dim strTempArr() As String
        For i = 0 To UBound(strLines) - 1
            strTempArr = Split(strLines(i), "</td>")
 
                If i = 0 Then   'Überschriften erstellen
                    ListView1.View = lvwReport
                    ListView1.ColumnHeaders.Add , , Trim(Replace(Mid(strTempArr( _
                      0), InStrRev(strTempArr(0), ">") + 1), " ", ""))
                    ListView1.ColumnHeaders.Add , , Trim(Replace(Mid(strTempArr( _
                    1), InStrRev(strTempArr(1), ">") + 1), " ", ""))
                    ListView1.ColumnHeaders.Add , , Trim(Replace(Mid(strTempArr( _
                    2), InStrRev(strTempArr(2), ">") + 1), " ", ""))
                    ListView1.ColumnHeaders.Add , , Trim(Replace(Mid(strTempArr( _
                    3), InStrRev(strTempArr(3), ">") + 1), " ", ""))
                Else            'Werte schreiben
                    ListView1.ListItems.Add ListView1.ListItems.Count + 1, , _
                      Trim(Replace(Mid(strTempArr(0), InStrRev(strTempArr(0), _
                      ">") + 1), " ", ""))
                    ListView1.ListItems( _
                    ListView1.ListItems.Count).ListSubItems.Add 1, , Trim( _
                    Replace(Mid(strTempArr(1), InStrRev(strTempArr(1), ">") _
                    + 1), " ", ""))
                    ListView1.ListItems( _
                    ListView1.ListItems.Count).ListSubItems.Add 2, , Trim( _
                    Replace(Mid(strTempArr(2), InStrRev(strTempArr(2), ">") _
                    + 1), " ", ""))
                    ListView1.ListItems( _
                    ListView1.ListItems.Count).ListSubItems.Add 3, , Trim( _
                    Replace(Mid(strTempArr(3), InStrRev(strTempArr(3), ">") _
                    + 1), " ", ""))
                End If
        Next i
 
 
End Sub

Mit freundlichen Gr??en,
Andy G.