Journal create reference set if exist run by to next

Hi, I hope someone can help me out.
I am a newbe on journaling.

I have made a Journal for creating "Reference Set".
I would like to have the possibility to ad lines and run it again.
There for i need help to run by the existing created reference set.

Thanks in advance, Hove.

NX 8.5

Option Strict Off
Imports System
Imports System.Collections.Generic
Imports NXOpen

Module Module1

Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work

Sub Main()

Try
Dim referenceSet1 As ReferenceSet
referenceSet1 = workPart.CreateReferenceSet()
referenceSet1.SetName("test_1")
'add all components (existing and future)
referenceSet1.SetAddComponentsAutomatically(False, False)
Catch ex As NXException
If ex.ErrorCode = 650030 Then goto lab2 else goto lab2
lab2:
End Try

Try
Dim referenceSet2 As ReferenceSet
referenceSet2 = workPart.CreateReferenceSet()
referenceSet2.SetName("test_2")
'add all components (existing and future)
referenceSet2.SetAddComponentsAutomatically(False, False)
Catch ex As NXException
If ex.ErrorCode = 650030 Then goto lab3 else goto lab3
lab3:
End Try

Try
Dim referenceSet3 As ReferenceSet
referenceSet3 = workpart.CreateReferenceSet()
referenceSet3.SetName("test_3")
'add all components (existing and future)
referenceSet3.SetAddComponentsAutomatically(False, False)
Catch ex As NXException
If ex.ErrorCode = 650030 Then goto lab4 else goto lab4
lab4:
End Try

End sub
End Module