Visual Basic 6 - Usare una databox per assegnare un nome ad una cartella c:

Grazie al vostro aiuto ho quasi finito il mio minuscolo progetto, quindi grazie tante. Devo risolvere un problema per ultimarlo, mi spiego meglio.
Praticamente il codice fa' questo : Scelgo una data dalla databox e clccando sul pulsante command1 tale data passa anche nella text1 e fin qui' tutto ok, adesso cliccando sul pulsante commandcreaprogetto vorrei che tale data che appare nella text1 diventi il nome di una cartella in c:, ma non funziona e non riesco a capire perche'.

Dim nuova
Dim I As Integer
Dim K As Integer
Dim Tx As Integer
Dim Ty As Integer

Private Sub Command1_Click()
Text1.Text = DataBox1.Text & ""
End Sub
Private Sub Commandcreaprogetto_Click()
nuova = Text1.Text
If nuova = "" Then Exit Sub
On Error GoTo errore
MkDir ("c:\" & nuova)
MkDir "c:\" & nuova & "\Copertina"
MkDir "c:\" & nuova & "\Facciata1"
Label1.Visible = False
Exit Sub
errore:
Label1.Visible = True
End Sub

in che senso non funziona? Cosa fa il programma?

Ti ricordo che nel nome di una cartella non ci può essere questo simbolo "/" spesso usato per le date...

Fermo restando quanto già suggerito da GrG, prova il seguente codice e vedi se é quello che cerchi:

Private Sub CommandCreaProgetto_Click()
    On Error GoTo ErrHandler
    Dim sNuova As String

' Percorso corrente del programma:
    ChDir App.Path
' Acquisisce la data inserita:
    sNuova = Text1.Text
    
    If Len(sNuova) > 0 Then
        ' Modifica la data inserita:
        sNuova = "Nw" & "_" & Text1.Text
    ElseIf Len(sNuova) = 0 Then
        MsgBox "Inserire una data del tipo 31Dic09"
        Text1.SetFocus
        Exit Sub
    End If

'Crea la directory:
    MkDir sNuova
' Nuova Cartella predefinita:
    ChDir sNuova
' Crea la SubDirectory:
    MkDir "Copertina"

ErrHandler:
If Err.Number <> 0 Then
    MsgBox "Errore: " & Err.Number & " " & Err.Description & Chr(13) _
    & "La cartella esiste già!", vbCritical, "Prova creazione cartella e sub"
    Err.Clear
    Exit Sub
End If
End Sub