Уважаемый Евгений, я не понял как эту программку применять. Нет ли какого-нибудь реадми с примерами.

Вячеслав, первые 18 строк модуля - это пример использования функций.
=SaveVar("имя переменной",значение) -сохраняет "значение" в переменной "имя переменной". 
m.var=RestVar("имя переменной") -возвращает это значение.
Главное, что эти переменные глобальны,и их значения можно передавать по всей программе.