Adding/Editting tolerances and precision

I was able to find and modify a journal for changing the tolerance of a dimension and was able to modify it for my needs. The problem is it only works for dimensions that have already been placed. If I try to use the journal while in the rapid dimension command I get the following error.

"NXOpen.NXException: Cannot lock the UI in it's current state
at NXOpen.Selection.SelectTaggedObject(String message, String title, SelectionScope scope, SelectionAxtion action, Boolean includeFeatures, Boolean keepHighlighted, MaskTripple[]maskArray, TaggedObject, Point3d_Cursor)
at EditTolerance.Select_dim(NXObject_obj) in C:\(file location)\journal.vb:line 82
at EditTolerance.Main() in C:\(file location)\journal.vb:line 19

Below is the journal I am using, this is in NX9. I am new to journaling and any help would be appreciated!

Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.UI
Imports NXOpen.Annotations

Module EditTolerance
Dim s As Session = Session.GetSession()
Dim ui As UI = UI.GetUI()
Dim ufs As UFSession = UFSession.GetUFSession()
Dim workPart As Part = s.Parts.Work
Sub Main()
Dim selecteddim As NXObject = Nothing
Dim response1 As Selection.Response = Selection.Response.Cancel
start1:
response1 = Select_dim(selecteddim)
If response1 = Selection.Response.Cancel Then GoTo end1
EditDimensionTolerance(selecteddim)
GoTo start1
end1:
End Sub
' ----------------------------------------------
' sub to edit tolerance
' ----------------------------------------------
Sub EditDimensionTolerance(ByVal selecteddim As NXObject)
Dim dimname1 As String = selecteddim.ToString
If dimname1.Contains("Radius") = True Then
Dim radialDimensionBuilder1 As Annotations.RadialDimensionBuilder
radialDimensionBuilder1 = workPart.Dimensions.CreateRadialDimensionBuilder(selecteddim)
radialDimensionBuilder1.Style.DimensionStyle.ToleranceType = Annotations.ToleranceType.BilateralOneLine
radialDimensionBuilder1.Style.DimensionStyle.UpperToleranceEnglish = 0.001
radialDimensionBuilder1.Style.DimensionStyle.ToleranceValuePrecision = 3
Dim nXObject1 As NXObject
nXObject1 = radialDimensionBuilder1.Commit()
Elseif dimname1.Contains("Diameter") = True Then
Dim radialDimensionBuilder1 As Annotations.RadialDimensionBuilder
radialDimensionBuilder1 = workPart.Dimensions.CreateRadialDimensionBuilder(selecteddim)
radialDimensionBuilder1.Style.DimensionStyle.ToleranceType = Annotations.ToleranceType.BilateralOneLine
radialDimensionBuilder1.Style.DimensionStyle.UpperToleranceEnglish = 0.001
radialDimensionBuilder1.Style.DimensionStyle.ToleranceValuePrecision = 3
Dim nXObject1 As NXObject
nXObject1 = radialDimensionBuilder1.Commit()
Else
Dim linearDimensionBuilder1 As Annotations.LinearDimensionBuilder
linearDimensionBuilder1 = workPart.Dimensions.CreateLinearDimensionBuilder(selecteddim)
linearDimensionBuilder1.Style.DimensionStyle.ToleranceType = Annotations.ToleranceType.BilateralOneLine
linearDimensionBuilder1.Style.DimensionStyle.UpperToleranceEnglish = 0.001
linearDimensionBuilder1.Style.DimensionStyle.ToleranceValuePrecision = 3
Dim nXObject1 As NXObject
nXObject1 = linearDimensionBuilder1.Commit()
End If

End Sub
' ----------------------------------------------
' function to select dimensions
' ----------------------------------------------
Function Select_dim(ByRef obj As NXObject) As Selection.Response
Dim resp As Selection.Response = Selection.Response.Cancel
Dim prompt As String = "Select dimensions"
Dim message As String = "Select dimensions"
Dim title As String = "Selection"
Dim scope As Selection.SelectionScope = Selection.SelectionScope.WorkPart
Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
Dim selectionMask_array(0) As Selection.MaskTriple
Dim includeFeatures As Boolean = False
Dim keepHighlighted As Boolean = False
With selectionMask_array(0)
.Type = UFConstants.UF_dimension_type
.Subtype = 0
.SolidBodySubtype = 0
End With
Dim cursor As Point3d = New Point3d
resp = ui.SelectionManager.SelectTaggedObject(prompt, message, _
scope, selAction, includeFeatures, keepHighlighted, selectionMask_array, obj, cursor)
If resp = Selection.Response.ObjectSelected Or _
resp = Selection.Response.ObjectSelectedByName Then
Return Selection.Response.Ok
Else
Return Selection.Response.Cancel
End If
End Function

Public Function GetUnloadOption(ByVal dummy As String) As Integer
'Unloads the image immediately after execution within NX
GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
End Function

End Module