Sub CreateNewFolder()
Dim _
fso As FileSystemObject, _
fol As Folder, _
fol_add As Folder, _
fil As File
Const strFolPath As String = "\\Fileserver\commonh\GROUP\SDF_data_export"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fol = fso.GetFolder(strFolPath)
 
    On Error GoTo Finish
        If Not fso.FolderExists(strFolPath & "\" & ThisDocument.Textbox59.Value) Then
            Set fol_add = fso.CreateFolder(fol.Path & "\" & ThisDocument.Textbox59.Value)
        End If
    End If
 
    Set fso = Nothing
    Set fol = Nothing
 
End Sub