Monarch does have wildcards. A ? is single character and * is multi character.
If(Account = “?????1*”,"Retail Sale,"Lease")
I think Joey's expression is nice as it will always take the 2nd from the end rather than the 6th character. But if you did specifically want the 6th character, you could either use wildcards or substr(Account,6,1).