Visual Basic - Ayuda con la creacion de carpetas

buenos dia estoy haciendo una aplicacion y en esta parte pido que me cree una carpeta y dentro de ella me cree otra carpeta con el nombre de la caja de cada respectivo archivo

primero poes es el ciclo despues la consulta en SQL que me extrae el numero de caja de la tabla captura de los archivos que estan en un List1.list
despues me lo guarda en la variable strcaja

al principio va todo bien me crea la caja y por ejemplo de archivo tal me crea la caja diez pero cuando es una caja diferente me dise que ya existe el archivo espero que me puedan ayudar saludo

For i = 0 To File1.ListCount - 1
Rst.Open " SELECT Caja " _
& " From Tbl_Captura " _
& " WHERE NFL = '" & List1.List(i) & "' " _
, cn, adOpenDynamic, adLockOptimistic
If Not Rst.EOF Then

StrCaja = Rst.Fields("Caja")
End If
Rst.Close

''''¿existe la carpeta?''''
If SysFile.FolderExists(Trim(Text2.Text) & Mid(Text1.Text, InStrRev(Trim(Text1.Text), "\"), Len(Text1.Text) - InStrRev(Trim(Text1.Text), "\" & StrCaja)) & "\Caja " & StrCaja) = False Then
SysFile.CreateFolder (Trim(Text2.Text) & Mid(Text1.Text, InStrRev(Trim(Text1.Text), "\"), Len(Text1.Text) - InStrRev(Trim(Text1.Text), "\" & "\Caja " & StrCaja)))
If SysFile.FolderExists(Trim(Text2.Text) & Mid(Text1.Text, InStrRev(Trim(Text1.Text), "\"), Len(Text1.Text) - InStrRev(Trim(Text1.Text), "\" & StrCaja)) & "\Caja " & StrCaja) = False Then
SysFile.CreateFolder (Trim(Text2.Text) & Mid(Text1.Text, InStrRev(Trim(Text1.Text), "\"), Len(Text1.Text) - InStrRev(Trim(Text1.Text), "\" & StrCaja)) & "\Caja " & StrCaja)
End If
End If
'Next

Trata con el siguiente codigo... creo que te faltaba una parte en la linea del CreateFolder

Muchas gracias fue de mucha ayuda mi error estaba el los end if heheheh saludos