Importing text from excel to make outlook folders

[Leeman]

I have some code below that adds a single folder to a second mailbox under the Inbox folder.

What I am trying to do is:

Read text from an excel file that contains a list of folder names to make many sub directories.

Sub Createsubfolders()

Set myOlApp = CreateObject("Outlook.Application")
Set MAPI = myOlApp.GetNamespace("MAPI")
Set myFolder = MAPI.Folders("Mailbox - EDMS")
Set myFolder = myFolder.Folders.Item("Inbox")
Set myNewFolder = myFolder.Folders.Add("My SubFolder1")

End Sub