Public Function GetString(ByVal str As String) As String
            Dim xd As New XmlDocument(), xr As XmlNodeReader
            Dim SRV As New System.Web.UI.Page()
            Dim CurUse As String, tStr As String = vbNullString
            '----------------------------------------------------------------------------------
            'Работа с конфигом XML
            '----------------------------------------------------------------------------------
            ' Открываем XML-файл
            xd.Load(SRV.Server.MapPath(System.Configuration.ConfigurationManager.AppSettings("ResFile")))
            ' Активируем XmlNodeReader
            xr = New XmlNodeReader(xd.Item("root"))
            While xr.Read
                If xr.Name = "data" Then
                    CurUse = xr.GetAttribute("name")
                    If CurUse = str Then
                        xr.Read()
                        If xr.Name = "value" Then
                            tStr = xr.ReadElementContentAsString
                        End If
                    End If
                End If
            End While
            'tStr = xd.SelectSingleNode("/root/data[@name='" & str & "']/values/text()").Value.ToString
            GetString = tStr
            If GetString = "" Then GetString = IIf(str = "", "***NA***", str)
        End Function