[VB6]: FSO mi crea due volte la stessa cartella

[Boolean]

anche se non ho capito la natura del problema...

perchè non cerchi di sfruttare una matrice di controlli (sia per i TextBox che per le Labels)?

se lo facessi, tutto quel po' di righe si riassumerebbe in un piccolo ciclo:

Dim pht As String
pht = App.path & "\" & "Source" & "\" & "Machine" & "\" & txtName.Text & "\"

Dim fso As FileSystemObject
Set fso = New FileSystemObject

For n = 1 to txtGruppo.Ubound
    With fso
        If txtGruppo(n).Text = "" Then
            Label(n) = "..."
        Else
            .CreateFolder (pht & txtGruppo(n).Text)
        End If
    End With
Next n

Boolean