Ordner in Outlook erstellen

StrBetreff = Sheets("Meins").Range("E5") 

aus ´nem Excel WB..
und im selben Makro möchte ich dann im Outlook einen Ordner erstellen mit meinem Betreff (strBetreff) als Namen
Set mynewfolder = myMailFolder.Folders.Add (hier sollte der Name des Ordners stehen)
also so funktioniert es:

Set mynewfolder = myMailFolder.Folders.Add("Codes")

so aber halt nicht:

Set mynewfolder = myMailFolder.Folders.Add  =  strBetreff

(Argument not optional kommt als Fehlermeldung)
Kann mir jemand sagen, wie ich das angeben sollte?
funktioniert das so überhaupt?
Danke
LG Nicky