Set oHTTP   = CreateObject("Microsoft.XmlHttp")
Set FSO     = CreateObject("Scripting.FileSystemObject")
oHTTP.Open "GET", "http://www.mediavida.com", False
oHTTP.setRequestHeader "Cache-Control", "no-cache"
oHTTP.Send ""
MasterCode = oHTTP.ResponseText
Set oHTTP = Nothing

Set F = FSO.CreateTextFile("output.htm", True)
	F.WriteLine MasterCode
F.Close

buff = split(MasterCode, "<h4>")

For i = 1 to ubound(buff)
	cUrl = Split(buff(i), Chr(34))(1)
	cTit = Replace(Split(buff(i), ">")(1), "</a", "")

	If Mid(cUrl, 1, 12) = "/foro/juegos" Then MsgBox "www.mediavida.com" & cUrl & vbCrLf & cTit
Next