'地域のRSSフィードURLを指定してください↓
xmlFile = "http://weather.livedoor.com/forecast/rss/13/63.xml"
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.async = False
returnCode = xmlDoc.Load(xmlFile)
If returnCode = False Then
	MsgBox("読み込みエラー")
	WScript.Quit()
End If
Set descriptionNodes = xmlDoc.selectNodes("//item/description")
line = ""
itemNumber = 7
For i = 1 To itemNumber
	line = line & descriptionNodes(i).text & vbCrLf
Next
strRep = Replace(Replace(Replace(Replace(line,"の天気は"," "),"、最高気温は"," ↑"),"最低気温は"," ↓"),"でしょう。","")

Echo(strRep)