Try this:
Option Strict Off
Imports System
Imports System.IO
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.UF.UFoper
Imports NXOpen.CAM
Imports NXOpenUI
Module NXJournal
Dim OPERATIONGROUP As String
Dim NEWNAME As String
Dim m_OperationList() As String
Sub Main
Dim theSession As Session = Session.GetSession()
Dim theUfSession As UFSession = UFSession.GetUFSession()
Dim theUISession As UI = UI.GetUI
Dim workPart As Part = theSession.Parts.Work
Dim displayPart As Part = theSession.Parts.Display
OPERATIONGROUP = NXInputBox.GetInputString("Enter Group Name to edit", "Renaming Tool", "PROGRAM")
NEWNAME = NXInputBox.GetInputString("Enter New Name for operations", "Renaming Tool", "MYNEWNAME")
NEWNAME = ucase(NEWNAME)
Dim MainProg As CAM.NCGroup = CType(WorkPart.CAMSetup.CAMGroupCollection.FindObject(OPERATIONGROUP), CAM.NCGroup)
'List all the ops in the program
Dim Opnames() As String = OperationList(MainProg.Tag)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim counter As Integer = 1
For Each Op As String In Opnames
theUfSession.Ui.SetStatus("Renaming Operation:" & OP)
Dim operation As CAM.Operation
operation = CType(WorkPart.CAMSetup.CAMOperationCollection.FindObject(Op), CAM.Operation)
operation.SetName(NEWNAME & counter)
counter += 1
Next
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
msgbox(counter - 1 & " OPERATIONS HAVE BEEN RENAMED")
End Sub
Public Function OperationList(ByVal sTag As NXOpen.Tag) As String()
Dim theUfSession As UFSession = UFSession.GetUFSession()
m_OperationList = Nothing
Dim ptr As IntPtr = New System.IntPtr
Dim cycle_cb_fn As NXOpen.UF.UFNcgroup.CycleCbFT = New NXOpen.UF.UFNcgroup.CycleCbFT(AddressOf cycle_OperationList)
'Cycle throught this view and find every object
theUfSession.Ncgroup.CycleMembers(sTag, cycle_cb_fn, ptr)
Return m_OperationList
End Function
Private Function cycle_OperationList(ByVal camObjectTag As Tag, ByVal ptr As IntPtr) As Boolean
Dim camObject As CAM.CAMObject = NXOpen.Utilities.NXObjectManager.Get(camObjectTag)
'Check if the object is an Operation
If TypeOf camObject Is CAM.Operation Then
If m_OperationList Is Nothing Then
ReDim m_OperationList(0)
Else
ReDim Preserve m_OperationList(m_OperationList.Length)
End If
m_OperationList(UBound(m_OperationList)) = camObject.Name
End If
Return True
End Function
End Module