Dim contacts As XElement = _
<contacts>
    <people1>
        <contact>
            <name>Ivanov</name>
            <homephone>no</homephone>
            <mobile>no</mobile>
        </contact>
        <contact>
            <name>Petrov</name>
            <homephone>no</homephone>
            <mobile>yes</mobile>
        </contact>
        <contact>
            <name>Sidorov</name>
            <homephone>yes</homephone>
            <mobile>no</mobile>
        </contact>
    </people1>
    <people2>
        <contact>
            <name>Ivanenko</name>
            <homephone>no</homephone>
            <mobile>no</mobile>
        </contact>
        <contact>
            <name>Petrenko</name>
            <homephone>no</homephone>
            <mobile>yes</mobile>
        </contact>
        <contact>
            <name>Sidorenko</name>
            <homephone>yes</homephone>
            <mobile>no</mobile>
        </contact>
    </people2>
</contacts>

	Dim items3 As IEnumerable(Of XElement) = _
        From el In contacts.<people2> _
        Where _
            (From nm In el.<contact> _
             Where nm.<homephone> = "no" _
            Select nm).Any _
        Select el

        For Each cname As XElement In items3
            TextBox3.Text = TextBox3.Text & cname.Value & ControlChars.NewLine
        Next

Dim items3 As IEnumerable(Of XElement) = _
        From el In contacts.<people2> _
        Where _
            (From nm In el.<contact> _
            Select nm).Any _
        Select el

        For Each cname As XElement In items3
            TextBox3.Text = TextBox3.Text & cname.Value & ControlChars.NewLine
        Next

Dim items = From el In contacts.<people2>.<contact> Where el.<homephone>.Value = "no" Select el.<name>.Value