XML VB.Net

Imports System
Imports System.Xml
Imports System.Xml.XPath
Public Class MainClass
    Public Shared Sub Main()
        Dim root As XElement = 
        
        Dim atList = From at In root.Attributes _
                     Where at.Value >= 3 _
                     Select at
        
        atList.Remove()
        
        Console.WriteLine(root)
    End Sub
End Class