VS 2005 Textbox Incrementation - Smallest Snippet Of Code Not Working Properly

I have written the code below to generate an XML document and it works a charm however the smallest snippet of code is causing me a major headache:

SNOMlabel.text += 1

For some reason this is doubling up and SNOMlabel equals 2 i have debugged the code on this line and it appears to be something to do with when it leaves the Sub btnSave_Click and enters and returns from CreateBookNode, CreateBookNode2, CreateBookNode3.

Code:

Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnSave.Click
' Name of xml file to create
Dim subs = SubscriberID.Text
Dim name2 As String
Dim fdate As String
Dim length As Integer
length = Len(Page.User.Identity.Name)..........