You can use the 'With ... End With' statements if you are using VBScript 5.0 or later. It helps to improve performance.
This runs slower:
PersonObj.FirstName = "Sandeep"
PersonObj.LastName = "Gain"
PersonObj.City = "Rajnandgaon"
This runs faster:
With PersonObj
.FirstName = "Sandeep"
.LastName = "Gain"
.City = "Rajnandgaon"
End with