vb.net XML load

 Public Sub configinit()

        Dim XMLReader As Xml.XmlReader _
   = New Xml.XmlTextReader(config)

        With XMLReader

            Do While .Read
                Select Case .NodeType
                    Case Xml.XmlNodeType.Element
                        If .AttributeCount > 0 Then
                            While .MoveToNextAttribute
                                If (.Name = "Path") Then
                                    cfgdir = .Value
                                    Label1.Text = "cfgdir" & .Value
                                End If
                            End While
                        End If



                End Select
            Loop


        End With


    End Sub