Неверный синтаксис? Ничего не делает при запуске

Question

Я новичок в VB. Я приобрел новое программное обеспечение для планирования пространства. Сценарии, которые ранее использовались, больше не работают. Мне нужно создать новый код в VB и вставить exe-файл в ленту программы, чтобы работать так, как это делали предыдущие сценарии. Поэтому я пытаюсь использовать библиотеку, доступную для записи. Когда я нажимаю на скрипт, он не делает то, что мне нужно. Можете ли вы увидеть, что я пропустил, как я новичок в VB. Я пытаюсь сделать «Сброс имени прибора» на всех моих приборах. Если прибор имеет то же имя, что и другой, я получаю сообщение об ошибке и не могу отправить свою схему. Я пытаюсь написать скрипт, который меняет все имена приборов на соответствующие им ID местоположения и номер сегмента.

Imports System.Collections.Generic
Imports System.Runtime.InteropServices
Imports System.Linq
Imports JDA.Intactix.Automation.SpacePlanning
Imports JDA.Intactix.Automation.Space.Planogram



Public Class Fixture

Public Function ForFixtures()

End Function
Public Sub SetFixtureField(Name As JDA.Intactix.Automation.SpaceFixtureFields, value As Object)
End Sub
Public Shared Sub Main()
    Dim SegNum = JDA.Intactix.Automation.SpaceSegmentFields.Number
    Dim LocID = JDA.Intactix.Automation.SpaceFixtureFields.LocationID
    Dim NewName = SegNum And LocID
    Dim Name = JDA.Intactix.Automation.SpaceFixtureFields.Name
    Name = 1
    If Name = "1" Then Name = NewName



End Sub
End Class

Не делает ничего, кроме моргания экрана несколько раз