フォルダ作成(1)では、マクロブックと同じ場所にフォルダを作成するようにしていますが、もちろん任意の場所に作成してかまいません。
フォルダ作成(2)は、少し特殊な場所（デスクトップ）に作成する場合です。SpecialFolders("Desktop")で、デスクトップのパスを取得しています。

Public Sub MakeFolder_1()
'フォルダ作成(1)

    Dim objFSO As Object
    Dim FolderPath As String
    Const FOLDER_NAME As String = "TestFolder"
    
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    'ブックと同じ場所に作成
    FolderPath = ThisWorkbook.Path & "\" & FOLDER_NAME
    If objFSO.FolderExists(Folderspec:=FolderPath) = True Then
        '既にフォルダが存在するときは、いったん削除
        On Error Resume Next
        Kill FolderPath & "\*.*"
        On Error GoTo 0
        RmDir FolderPath
    End If
    
    objFSO.CreateFolder FolderPath
    
End Sub

Sub MakeFolder_2()
'フォルダ作成(2)

    Dim MyWSH  As Object
    Dim objFSO As Object
    Dim FolderPath As String
    Const FOLDER_NAME As String = "TestFolder"
    
    
    Set MyWSH = CreateObject("WScript.Shell")
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    'デスクトップに作成
    FolderPath = MyWSH.SpecialFolders("Desktop") & "\" & FOLDER_NAME
    If objFSO.FolderExists(Folderspec:=FolderPath) = True Then
        '既にフォルダが存在するときは、いったん削除
        On Error Resume Next
        Kill FolderPath & "\*.*"
        On Error GoTo 0
        RmDir FolderPath
    End If
    
    objFSO.CreateFolder FolderPath
    
End Sub