For Each subFolder As Outlook.MAPIFolder In currentFolder
            If subFolder.DefaultItemType = Outlook.OlItemType.olMailItem Then
                Try
                    TreeView1.Nodes.Add(subFolder.Name)
                    FindFolders(subFolder.Folders)
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
            End If
        Next