Another approach using XElement and LINQ
Dim xmlFile As XElement
xmlFile = XElement.Load("path here")
'for testing
xmlFile = <times>
<given type="type1">
<data1>"data1 here</data1>
<data2>"data2 here"</data2>
</given>
<given type="type2">
<data1>"data1 here</data1>
<data2>"data2 here"</data2>
</given>
<given type="type3">
<data1>"data1 here</data1>
<data2>"data2 here"</data2>
</given>
</times>
Dim xelND As XElement
xelND = (From el In xmlFile.<given>
Where el.@type = "type2"
Select el
Take 1).FirstOrDefault
If xelND IsNot Nothing Then xelND.@type = "typeX"
xmlFile.Save("path here")