<WizardData>
    <ProjectCollection>
      <SolutionFolder Name="2. Application">
      ...

Private dte As EnvDTE._DTE
    Private _runKind As WizardRunKind
    Private _replacementsDictionary As Dictionary(Of String, String)

    Public Sub RunStarted(automationObject As Object, replacementsDictionary As System.Collections.Generic.Dictionary(Of String, String), runKind As Microsoft.VisualStudio.TemplateWizard.WizardRunKind, customParams() As Object) Implements Microsoft.VisualStudio.TemplateWizard.IWizard.RunStarted
        dte = DirectCast(automationObject, EnvDTE.DTE)
        _runKind = runKind
        _replacementsDictionary = replacementsDictionary

        Dim sPath = CStr(customParams(0))
        sPath = sPath.Substring(0, sPath.LastIndexOf("\") + 1)
        _replacementsDictionary.Add("$templatepath$", sPath)
    End Sub

Public Sub RunFinished() Implements Microsoft.VisualStudio.TemplateWizard.IWizard.RunFinished
        If _runKind = WizardRunKind.AsMultiProject Then
            Dim sol = DirectCast(dte.Solution, Solution2)
            AddFolders(sol, _replacementsDictionary("$wizarddata$"))
        End If
    End Sub

    Private Sub AddFolders(solution As Solution2, xmlstring As String)

        Dim ns = "http://schemas.microsoft.com/developer/vstemplate/2005"
        Dim xDoc = XDocument.Load(New StringReader(xmlstring))
        Dim xRoot As XElement = xDoc.Root

        Dim currentFolder As Project = Nothing
        Dim xAtt As XAttribute

        For Each element In xRoot.Descendants(XName.Get("SolutionFolder", ns))
            xAtt = element.Attribute(XName.Get("Name"))
            If Not xAtt Is Nothing Then

                currentFolder = solution.AddSolutionFolder(xAtt.Value)

                For Each template In element.Descendants(XName.Get("ProjectTemplateLink", ns))
                    Dim templatePath = template.Value
                    Dim projectName As String

                    xAtt = template.Attribute(XName.Get("ProjectName"))
                    If Not xAtt Is Nothing Then
                        projectName = xAtt.Value.Replace("$shortname$", _shortName)

                        Dim destinationPath = _replacementsDictionary("$destinationdirectory$") & "\" & projectName
                        Directory.CreateDirectory(destinationPath)

                        Dim SF As SolutionFolder
                        SF = CType(currentFolder.Object, SolutionFolder)
                        SF.AddFromTemplate(_replacementsDictionary("$templatepath$") & templatePath, destinationPath, projectName)

                    End If
                Next
            End If
        Next
    End Sub