Option Explicit
Dim objFSO, objFolder, strDirectory, i
strDirectory = "C:\Users\__b\Documents\AMAKings\mysuicidegf"

Set objFSO = CreateObject("Scripting.FileSystemObject")
i = 0  '' <===== CHANGED!
While i < 180
    Set objFolder = objFSO.CreateFolder(strDirectory & i)
    i = i+1
Wend