InfoPath Dev

I'm currently running IP 2003 and using VBS Script.  I have the following VBS code in my form activated OnClick.  It works well, but if the end-user selects "Yes" (as shown in code below - which is necessary) my server won't process the xml file until the current user closes the form.  Is there a way to modify this code to allow the form to be pushed thru without having to close the file?  Thanks in advance. 

Dim txtPath
Dim txtName
Dim sfileCode
Dim txtTimestamp
Dim txtext

Dim myvar txtPath = myserverunc
sfileCode = XDocument.DOM.selectSingleNode("SMSBroker/Order/File/EscrowOfficer_EmplSysId").text
txtTimestamp = Hour(Now)&Minute(Now)&Second(Now)
txtName = "NewOrder"
txtext = ".xml"

XDocument.SaveAs(txtPath & sfileCode & txtTimestamp & txtName & txtext)

myvar = MsgBox ("Your order has been submitted! To enter another order using the same information click Yes, to close the form No. NOTE: If you need to make changes, please contact the CTC Order Entry Dept at [email protected].", vbYesNo + vbInformation + vbDefaultButton2, "Submit Order")
If myvar = vbYes
Then

Else
XDocument.View.Window.Close(true)
End If
End Sub

Hi, your form is save before your message is displayed so if your end user select yes or no, it doesn't matter.

Hi Potemkine, that was my line of thought as well however, with every test I've run, the order does not clear the ftp site until I've closed the form.

That's a little weird, can you test to save somewhere else after your save it , just to see if your xml was up to date.

after 

XDocument.SaveAs(txtPath & sfileCode & txtTimestamp & txtName & txtext)

add:

XDocument.SaveAs("ANOTHERPATH" & txtName & txtext)

Potemkine, actually, that part is still okay, I misspoke, the portion the server isn't accepting is the actual element. In other words Acme Buyer Co isn't being recognized. Thanks!

Potemkine, nevermind my last response, that was for the other forum, I got them mixed up, my mistake.