Check folder exist or to create new folder

Sub folder_check()

Dim fso As New FileSystemObject

If fso.FolderExists(Environ("UserProfile") & "\desktop\test") Then
    MsgBox "Folder already exist!"
Else
    fso.CreateFolder (Environ("UserProfile") & "\desktop\test")
    MsgBox "Folder Created"
End If

End Sub