Get user desktop and make a folder

Get user desktop and make a folder

Dim DeskTop As String
  Dim WSH As Object
  Dim GetDesktopPath As String
  Dim MainFolder As String
  
    Set WSH = CreateObject("WScript.Shell")
    DeskTop = WSH.SpecialFolders("desktop")
    
    GetDesktopPath = DeskTop
    Set WSH = Nothing
    
MainFolder = "Your Folder Name" 'Folder to be created on the desktop
Dim Path As String
Path = GetDesktopPath & "\" & MainFolder &"\"
If Len(Dir(Path, vbDirectory)) = 0 Then
MkDir (Path)
End If