PublicFunction GetUrl() AsString Dim xmlNode As XmlNode Try XmlDoc =New XmlDocument() XmlDoc.Load(Path) xmlNode = XmlDoc.SelectSingleNode("//Item[@Key='PDAServer']") Return xmlNode.InnerText.ToString Catch ex As Exception ' Throw ex Return String.Empty End Try End Function