Debbuger hoert auf zu arbeiten

Hi, hier eine Funktion die wenn ich sie debuge nach der Zeile "If True Then" einfach aufhoert weiterzulaufen. Der Debugger schliest und keine Fehlermeldung kommt. Egal was ich mit dem If Then mache es hoert immer da auf. Die messageboxes erscheinen nie. Woran liegt das?

Function ReArrange(oldNum As Integer,newNum As Integer, uidoc As notesuidocument, view As notesview) As Integer
	Dim doc As NotesDocument
	Dim num As Integer

	uidoc.EditMode=True





	If True Then	         
			num=oldNum+1
		Set doc = view.GetDocumentByKey(num,True)
		Do While Not doc  Is Nothing
			If Not num=newNum Then			
				doc.place(0)=oldNum
				Call doc.Save(True,False)
				num = num+1
				oldNum=oldNum+1
			Else
				doc.place(0)=oldNum
				Call doc.Save(True,False)
				Call uidoc.fieldsettext("place",newNum)
				Call uidoc.Save
				ReArrange=1
			End If
			Set doc = view.GetDocumentByKey(num,True)
		Loop
	Else
		ReArrange=1
		Messagebox "B"
	End If	

	Messagebox "a"
	ReArrange=0

End Function

Frueher war es

If oldNum<NewNum

hab aber das Treu gemacht weill ich sicher gehen wolte das de code im IF lauft.

Habe jetzt ueberall Messageboxes und keine erscheint. Nach dem IF wird nicht mehr weiter gemacht dan hoert der code auf zu laufen.

Hab das Stop direkt unter dem if reingetan,es kommt nie dazu der debugger steigt einfach raus bevor er zum stop kommt.

Dann habe ich das If entfernt, und dan kamm es zum Stop und danach ging es nicht mehr weiter.

Ich mache einen neuen agenten mit dem selben Code, mal sehen was dan passiert.

Danke

uidoc.EditMode=True

Es lag wohl daran, denn als ich die Zeile entfernt habe ging es wieder.

Warum?