Как создать папку с текущей датой и временем? - VB

Формулировка задачи:

при нажатии на кнопку должна создоваться папка в каталоге C:\data\ с текущей датой и временем.

Решение задачи: «Как создать папку с текущей датой и временем?»

textual
                            Листинг программы 
                        

                            Private Declare Function MakeSureDirectoryPathExists Lib "Imagehlp.dll" (ByVal strPath As String) As Long
    'проверяет наличие папки с указанным путем и создает, если ее нет
    'возвращает 0, если папку создать не удалось и не-0, если ОК
 
Private Sub Command1_Click()
If MakeSureDirectoryPathExists("C:\data\" & format(now,"YYMMDDhhmm") = 0 Then _
    MsgBox "Не удалось создать путь"
 
End Sub
                        