Dim key As String Dim j As String Dim rt As String Dim racing As New au.com.tab.racing.Racing Dim meetings As Object Dim data As String Button3.Visible = True Button4.Visible = False key = Range("B4").Value j = Range("B9").Value If Range("B8").Value = "Races" Then rt = "r" ElseIf Range("B8").Value = "Harness" Then rt = "h" ElseIf Range("B8").Value = "Greyhounds" Then rt = "g" End If meetings = racing.NextEvent(key, j, rt) data = CType(meetings, System.Xml.XmlElement).InnerXml Range("A20").Value = data data = DirectCast(DirectCast(meetings, System.Xml.XmlElement).FirstChild, System.Xml.XmlElement).InnerXml Range("A21").Value = data data = DirectCast(DirectCast(DirectCast(meetings, System.Xml.XmlElement).FirstChild, System.Xml.XmlElement).FirstChild, System.Xml.XmlElement).InnerXml Range("A22").Value = data data = DirectCast(DirectCast(DirectCast(meetings, System.Xml.XmlElement)., System.Xml.XmlElement).FirstChild, System.Xml.XmlElement).InnerXml Range("A23").Value = data
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)