Как создать новую папку в Visual basic 6.0 , и названием папки указать переменное значение Label?

mkdir & label1.caption

Private Declare Function SHCreateDirectoryEx Lib "shell32" Alias "SHCreateDirectoryExA" (ByVal hwnd As Long, ByVal pszPath As String, ByVal psa As Any) As Long
 
Private Sub Command1_Click()
Dim ErrorCode As Integer, message As String
DirPath$ = Label1.Caption
ErrorCode = SHCreateDirectoryEx(Me.hwnd, DirPath$, ByVal 0&)
Select Case ErrorCode
  Case 0
  message = "Папка успешно создана"
  Case 80, 183
   message = "Уже есть такая папка"
  Case 161
   message = "Плохое имя папки"
  Case 206
   message = "Очень длинное имя папки"
  Case Else
   message = "Непредвиденная ошибка создания папки"
End Select
  MsgBox message & ". Код ошибки  = " & ErrorCode
End Sub

MkDir "C:\x\x\" & Label19.Caption

ON ERROR RESUME NEXT
MkDir "C:\x\x\" & Label19.Caption
IF ERR THEN MSGBOX "Этот заказ уже существует": ERR.CLEAR ':EXIT SUB'на ваше усмотрение?