Crear muchas carpetas en vbs

'Crea las carpetas desde Equipo1 a Equipo100
'El archivo se guarda con extensión vbs y adelante.
Dim fso, fldr, i
Set fso = CreateObject("Scripting.FileSystemObject")
for i=1 to 100
    Set fldr = fso.CreateFolder("Equipo" & i)
next