VB.NET Script - Bible Verse of the day

[ArbWare]

The site i was using changed the RSS to requiring a login... so i found another RSS feed.

The new feed location is : https://www.biblegateway.com/votd/get/

The script is as follows

Imports System.IO

Sub Main(parm as object)
Dim m_xmld As XmlDocument
Dim m_node As XmlNode
Dim CHverse as xmlNode
dim tverse as xmlNode

m_xmld = New XmlDocument
m_xmld.Load("https://www.biblegateway.com/votd/get/")

CHverse = m_xmld.SelectSingleNode("votd/reference")

tverse = m_xmld.SelectSingleNode("votd/content")


hs.speak ("The Verse for the day is from " & CHverse.InnerText.replace(":"," verse ") &". The Verse is . . " & tverse.InnerText,TRUE)
' hsp.waitms(250)

hs.speak (". . . . . Again; This verse was from " & CHverse.InnerText.replace(":"," verse "),true )


End Sub

[Bill Brower]

Thanks.
I've been using Jon00 RSS feed on these:
http://feeds.feedburner.com/hl-devos-dw?format=xml
http://feeds.feedburner.com/hl-int-tv-en

It has worked well but weeding out all of the stuff you don't want spoken has been a challenge.