A first chance exception of type 'System.ArgumentOutOfRangeException' occurred in System.Windows.Forms.dll Nu apare nimic in label Imports System.Net Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim wc As New WebClient Dim html As String html = wc.DownloadString("http://www.1234.com/pages/") Label1.Text = GetBetween(html, "<span id=""epm_ads_1"" class=""bold"">", "</span>") End Sub Private Function GetBetween(ByVal sSearch As String, ByVal sStart As String, ByVal sStop As String, Optional ByVal lSearch As Integer = 1) As String Dim lTemp As Long lSearch = InStr(lSearch, sSearch, sStart) If lSearch > 0 Then lSearch = lSearch + Len(sStart) lTemp = InStr(lSearch, sSearch, sStop) If lTemp > lSearch Then Return Trim(Mid$(sSearch, lSearch, lTemp - lSearch)) End If Return vbNullString End Function End Class