Just go to VB5 or 6, create a new DLL project, and mess with the class, add the functions etc you need. Compile it and put it where it needs to be.

Go to your VBScript and type

Set obj = CreateObject("ProjectName.ClassName")

So if your project name is "Joe" and the Class name is "Fred" then you type

Set obj = CreateObject("Joe.Fred")

You're ready to roll!