Create Folder Through Visual basic

Private Sub CreateFolders()
Dim rsData As New ADODB.Recordset
If fsys.FolderExists("" & App.Path & "\HTML") = False Then
fsys.CreateFolder("" & App.Path & "\HTML")
end if
MsgBox "Done"
End Sub