Replacing If Exists

[Deb]

I got the following code from Patrick Halstead's "Developing Solutions with
InfoPath," however, it doesn't work in my environment. I guess I need the
VBScript version of it? Can someone help translate this to something that
will work in the Microsoft VB script editor?

function XDocument::OnSubmitRequest(eventObj)
{
Dim submit As DAVAdapter
submit = thisXDocument.DataAdapters.Item("Submit")
If thisFilename Is Nothing Then
thisFilename = submit.FileName
End If
submit.FileName = thisFileName
submit.Submit()
e.ReturnStatus = True

Thanks!