La función CreateObject crea un objeto de un tipo especificado.
Sintaxis
CreateObject(ObjectName)
Argumentos:
ObjectName: necesario. Nombre del objeto.
Nombres de objetos soportados
En el siguiente ejemplo se muestra el uso de la función Createobject:
Ejemplo 1:
Dim fso, tso
Set fso = CreateObject("Scripting.FileSystemObject")
Set tso = fso.CreateTextFile("C:\example.txt", True)
tso.WriteLine("Hello World!")
tso.Close