Access - Crear carpeta

Hola a todos y gracias por la ayuda que prestais. Quisiera que me aysarais sobre como pedo implementar sobre este codigo que pego, una carpeta.

Private Sub bot01_Click()
On Error Resume Next
Dim strPROP 'strPATH - ya no se necesita porque toda la ruta está en strDOT
'Dim StrPath2 As String - como la ruta se repite en 2 procedimientos: este y botn02_Click
'variable Verdocumento, esta variable pasa a ser a nivel de formulario y se elimina la variable Verdocumento
Dim WordApp As Object
'strPATH = Application.CurrentProject.Path - Toda la ruta está en strDOT

' Ruta donde se guardan los documentos
strPath2 = "E:\Documents and Settings\ordenpublico1.AYTOTARIFA\Escritorio\REGISTRO DENUNCIAS\" & strDOC & Me.DATO21 & ".doc"
strDOT = Me.cboPlantillas

'Comprobamos que existe la plantilla en la ruta pasada del cuadro combinado
If Nz(Dir(strDOT), "") = "" Or Me.cboPlantillas = "" Then
MsgBox "No existe la plantilla " & Me.cboPlantillas.Column(0) & " en el directorio: " & vbCrLf _
& strDOT, vbCritical, "Validación"
Exit Sub

End If