Modules & VBA :: Button On Form - Making A New Windows Folder

I currently have a button on a form which, when clicked, I would like to do several things:

1) Check if the folder, "folder name (1)" exists
2) If no, make it; if yes, check if the folder, "folder name (2)" exists
3) If no, make it; if yes, check if the folder, "folder name (3)" exists
4) repeat this process until a new folder is made

The code I currently have seems to not work, and makes an infinite loop

Code:
Private Sub Export_Click()
Dim checker As Integer
Dim projPath As String
checker = 1

[Code] ....