<GLRoot>
     <REC>
        <Root>
            <Type1>1</Type1>
            <Type1>2</Type1>
            <Type2>3</Type2>
            <Type2>4</Type2>
            <Type2>5</Type2>
        </Root>
        <Root1>
            <Type1>1</Type1>
            <Type1>2</Type1>
            <Type2>3</Type2>
            <Type2>4</Type2>
            <Type2>5</Type2>
        </Root1>
     </rec>
 </GLRoot>

 Dim y = From el In hdoc.Elements("GLRoot").Elements("REC").Elements("Root1")

For Each rw In y
     zap = rw.Elements("Type1").Value
next