Получение ошибки "неправильная функция" в функции на конкретных компьютерах

---

Использование vb.NET я использую XmlDocument чтобы загрузить, измените и сохраните существующий XML-файл. Загрузка и модификация работают, но я получаю ошибку "Неправильная функция" при попытке сохранить XML-файл. Я получаю эту ошибку как сообщение от try catch. Даже когда я комментирую свой код в середине загрузки и сохранения, я все равно получаю эту ошибку...

Целевая платформа: .NET Framework 4.5.
Тип приложения: приложение Windows Forms

Это проблема ПК, так как она действительно работает на некоторых компьютерах с Windows, но не на других. Я попытался сравнить несколько вещей, но я не уверен, что искать для сравнения.

Я новичок в кодировании и не знаю, что делать. Все, что я гуглю, находится у меня над головой. Не могли бы вы, пожалуйста, помочь, как вы пытались помочь 7-летнему ребенку.

Заранее благодарю вас!

Код:

Imports System.Xml
Dim ShipXMLDocument As XmlDocument = New XmlDocument()
ShipXMLDocument.Load(FilePath)
Dim objNodeList = Nothing

objNodeList = ShipXMLDocument.DocumentElement.SelectNodes("//ShipShipment/DataArea/Shipment/Header/Parties/Party")

If objNodeList.Count > 0 Then
	For i = 0 To objNodeList.Count - 1
		If objNodeList.Item(i).FirstChild.InnerText <> "SHIPPER" Then
			For ChildNode = 0 To objNodeList.Item(i).ChildNodes.Count - 1
				If objNodeList.Item(i).ChildNodes.Item(ChildNode).Name = "Name" Then
					objNodeList.Item(i).ChildNodes.Item(ChildNode).InnerText = "Tester McTestingstein"
				ElseIf objNodeList.Item(i).ChildNodes.Item(ChildNode).Name = "EmailAddress" Then
					objNodeList.Item(i).ChildNodes.Item(ChildNode).InnerText = "Testing@Testing.com"
				End If
			Next
		End If
	Next
End If

ShipXMLDocument.Save(FilePath)

Я получаю это как трассировку стека:

Цитата:

в корпорации Microsoft.На языке VisualBasic.CompilerServices.Символы.Контейнер.InvokeMethod(Метод TargetProcedure, Аргументы Object [], Boolean[] CopyBack, Флаги BindingFlags)
в корпорации Microsoft.На языке VisualBasic.CompilerServices.NewLateBinding.CallMethod(контейнер BaseReference, строка Имяметода, объект[] Аргументы, строка[] ArgumentNames, тип[] помощью, логические[] CopyBack, флаг bindingflags InvocationFlags, логическое ReportErrors, ResolutionFailure&амп; отказ)
в корпорации Microsoft.На языке VisualBasic.CompilerServices.NewLateBinding.ObjectLateCall(Экземпляр Объекта, Тип Type, String MemberName, Аргументы Object [], String[] ArgumentNames, Type[] TypeArguments, Boolean[] CopyBack, Boolean IgnoreReturn)
в корпорации Microsoft.На языке VisualBasic.CompilerServices.NewLateBinding.LateCall(Экземпляр Объекта, Тип Type, String MemberName, Object[] Arguments, String[] ArgumentNames, Type[] TypeArguments, Boolean[] CopyBack, Boolean IgnoreReturn)
в Apollo_Shipping.Функции.XML_ScrubContactInformation(Object FilePath) в C:\Temp\Send тестовая отгрузка\отправить тестовую отгрузку\функции.vb:строка 584

Что я уже пробовал:

- Запуск этого кода на другом компьютере с Windows.
- Комментируя мой код в середине загрузки XML и сохранения XML.

---