Hello, I've maked this code for creating folders in VB;

Public Sub CrearPath(strPath As String)

    Dim Carpetas() As String

    Carpetas() = Split(strPath, "\")

   ...