WhatToDo = Choose(1, "Buy ", "Rent ") & Left("VBA", 2) & String(3, "!")

Aside from that, I don't think it's possible... Microsoft customized their UserForms so much, it's impossible to do many things with those pieces of junk... (I tried to remove the title bar! It won't go away no matter what!)

------------------
Yonatan
Teenage Programmer
E-Mail: [email protected]
ICQ: 19552879