Первое что бросается в глаза - ты не обрабатываешь возможные ошибки в
AddMapElement и
FindMapElement.
if FindMapElement(Map(), Key$)
элемент есть - работаем
else
элемента нет - с этим надо что-то делать
endif
чтобы сказать что-то подробней нужно гонять программу в дебагере и смотреть что там происходит.
__________________
AMD Sempron(tm) 1.41Ггц, 1024МБ ОЗУ, GeForce 6200 128МБ, WinXP SP3.