You need to import the namespace to use in XML literals.
At the top of the module, put:
Imports <xmlns:ns="http://schemas.microsoft.com/packaging/2010/07/nuspec.xsd">
Then in your function:
Dim tests = root.<ns:metadata>
For Each el In tests
Console.WriteLine(el.<ns:id>.Value)
Next
Obviously you can use anything instead of ns
.