Incorrect Syntax? Does not do anything when I run

I am new to VB. I acquired a new space planning software. The scripts previously used no longer work. I have to create new code in VB and insert the exe into the ribbon of the program to operate as the previous scripts would. So Im trying to use the library available to write. When I click on the script it does not do what I need it to do. Can you possibly see what I missed as I am new to VB. Im trying to do a "Fixture name reset" on all my fixtures. If a fixture has the same name as another I get an error and cannot submit my schematic. I am trying to write a script that changes all the fixture names to its respective Location ID and Segment Number.

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

Does not do anything other than blink screen a few times