Set Bases = CreateObject("Scripting.Dictionary")
Bases.Add "test" , "test"
Bases.Add "test2" , "test2"

как проверить что MyBase.Name входит в этот список??

http://msdn.microsoft.com/en-us/library/57hdf10z(v=vs.84).aspx

ЗЫ научу пользоваться гуглом, быстро, дорого, гарантия 100%

сколько?

ок. пасиб!

(2) поздно русский из (1) дал даром ...