Thanks S.Y.M for being so helpful.

I have followed your instruction to convert Jscript to VBScript to be
applied in my form.

When i run the form, there is an error message prompted " Object required:
strUri"

I have no problem to run the JScript codes in my new form but have this
error using VB Script.

So, i think there must be some syntax error in VB Script.

I will post the script that prompted the error message at the bottom.  The
error encountered at the PopulateLibInfo subroutine for strPath. Please help
me to take a look at what has gone wrong.

Thank you.

Sub XDocument_OnLoad(eventObj)
'Get the Uri of where the form was opened
   strUri = XDocument.Solution.URI
   
   'Populate the fields on the form - keep in mind, this is not necessary -
   'this is simply to see the process in action
   PopulateLibInfo
End Sub

Sub PopulateLibInfo

   'Create IXMLDOMNode objects for each field
   dim xnFormURL
   set xnFormURL =
XDocument.DOM.selectSingleNode("my:myFields/my:strFormURL")
   dim xnLocation
   set xnLocation =
XDocument.DOM.selectSingleNode("my:myFields/my:strLocation")
   dim xnFolderName
   set xnFolderName =
XDocument.DOM.selectSingleNode("my:myFields/my:strFolderName")

   'Create a variable to store the path (URL) to the document library
   dim strPath
   
   'Parse just the path to the document library -
   'this would return something like this: http://server/library            
                  
   strPath = strUri.substring(0, strUri.indexOf("Forms") - 1)
   
   'Now, parse the URL to where the document library resides -
   'this would return something like: http://server or http://server/site
   dim strLoc
   strLoc = strPath.substring(0, strPath.lastIndexOf("/"))

   'Lastly, parse the URL to return just the document library name -
   'in this case,we are looking for the last "/" character
   'knowing that what comes after this is the document library name
   dim strFolder
   strFolder = strPath.substring(strPath.lastIndexOf("/") + 1)

   'Populate the fields on the form – we will use these values
   'in the Submit process
   
   xnFormURL.text = strUri
   xnLocation.text = strLoc
   xnFolderName.text = strFolder
   
end sub