Create Folder on SharePoint using VBA in MS Access

Question

I have this code on the OnClick_Event of a button on a form to Create a folder on my pc.

On Error Resume Next
Dim fs, cf, strFolder
Dim FolderName As String