'スレッドのURLを指定してください↓
xmlFile = "http://rss.s2ch.net/test.cgi/-/hobby8.2ch.net/sony/1163981013/"

Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.async = False
returnCode = xmlDoc.Load(xmlFile)
If returnCode = False Then
	MsgBox("読み込みエラー")
	WScript.Quit()
End If

Set nomberNodes = xmlDoc.selectNodes("//item/number")
Set decriptNodes = xmlDoc.selectNodes("//item/description")

line = ""
itemNumber = nomberNodes.length -1
For i = itemNumber -10 To itemNumber
	line = line & nomberNodes(i).text & decriptNodes(i).text & vbCrLf  & vbCrLf
Next

strRep = Replace(line,">",">")

Set strRep2 = New RegExp
strRep2.Pattern = "ID:\S+ "
strRep2.Global = True 
Rep2 = strRep2.Replace(strRep, "")

Set strRep3 = New RegExp
strRep3.Pattern = "(\d\d:\d\d:\d\d )"
strRep3.Global = True 
output = strRep3.Replace(Rep2, "$1" & vbCrLf)

Echo(output)