> とりあえずこんな感じ。

実行結果はこうなります。
指定通り、Locatin ではなく Location として追加されていることが分かりますね。




なお先のコードだと、BOM 付の UTF-8 エンコードで出力されます。
もしも BOM 無しで出力したいなど、別の Encoding で出力したいのであれば
Encoding を明示した XmlTextWriter に Save するようにしてみてください。

Using writer As New XmlTextWriter("D:\TEMP\Sample3.xml", New UTF8Encoding(False))

    doc.Save(writer)

End Using