Thanks Gregory, this is helpful and I'll remember it for next time. The workaround I used isn't as elegant but worked, it uses Find and Mid:
TextConcat="Jan:&"TextMth1"&";Feb:"&"TextMth2"&";Mar:"&"TextMth3"....
Text for This Month Split Prep1 =Mid(TextConcat,Find(CurrentDate("MMM"),TextConcat),10000)
Text for This Month Split Prep2 =Split(Text for This Month Split Prep1,1,";")
TextForThisMonth=Split(Text for This Month Split Prep2,2,":")