Всегда желательно в конце процедуры:  
Set "Переменная" = Nothing  
Это принудительно очистит память.

ИМХО, если переменная определена в процедуре (локальная), то время её жизни ограничено процедурой и по окончании процедуры (Exit Sub) все локальные переменные "умирают" и освобождают память. Поэтому Set "Переменная" = Nothing для локальных переменных делать не обязательно (конечно, если сама процедура не жутко жадная в смысле пожирания памяти)

{quote}{login=Alex_ST}{date=10.06.2010 11:29}{thema=}{post}ИМХО, если переменная определена в процедуре (локальная), то время её жизни ограничено процедурой и по окончании процедуры (Exit Sub) все локальные переменные "умирают" и освобождают память. Поэтому Set "Переменная" = Nothing для локальных переменных делать не обязательно (конечно, если сама процедура не жутко жадная в смысле пожирания памяти){/post}{/quote}  
Алекс, я согласен с Вами, но считается хорошим тоном в прогаммировании такие переменные убивать после объявления.  
Это так же как с оператором Goto. Вроде и работает как надо, но не рекомендуют(и тон плохой). Сам никогда не использую:-) Если уж приспичило, то Gosub-Return. С уважением, Сергей.

По поводу "правил хорошего тона" при программировании абсолютно с вами согласен. Это как ржавчина на кузове автомобиля: на скорость не влияет, но и самому смотреть противно, и похвастаться перед другими как-то стыдно...  
Я сам всегда использую явное определение переменных через Dim (Option Explicit у меня ставится по умолчанию)и "убиение" по мере отпадания в них нужды переменных, установленных через Set.  
А уж про комментарии и говорить нечего! Без них и на свою-то программу через месяц будешь долго смотреть и "чесать репу" а что там, как и зачем? А уж про чужие программы и говорить нечего. Некоторые гуру форума, к сожалению иногда грешат примерами без комментариев. Я, если эти примеры кладу к себе в "копилку", то всегда прописываю в макросах что это за модуль, кем написан и откуда взят (ссылка на пост).

Алекс, я покраснел прочитав:  "к сожалению иногда грешат примерами без комментариев." Правда, неудобно. Но я так и читаю чужой код. Не глядя на комменты. Самоучка - и так привык. С Вами абсолютно согласен(только вчера azam-у объяснял полезность комментов), но себя, боюсь, уже не исправлю:-( Я на этом форуме мнооооогому пытаюсь научиться. В первой строке списка доброта Юрий М, его умение общаться, не обижая других. Мне бы так. Ладно, что-то я совсем расчувствовался(это из мультика, не подумайте).

Я тоже не понимаю, чем GoTo не угодил. Да, плохо смотрится, когда таких переходов куча и они используются нецелесообразно. Но иногда ведь действительно нужен этот переход и если без него, то наоборот, код смотрится более неграмотно и загроможденно, потому что приходится выдумать обходные пути. И не помню, чтобы кто-то рекомендовал его не использовать.  
 
Вывод: не брезгуйте этим оператором - он бывает весьма полезен и не вреден в умеренных количествах.

{quote}{login=слэн}{date=10.06.2010 12:52}{thema=}{post}зря вы на goto ополчились  :)  иногда без него никак..  
коммменты, да, ленюсь писать, каюсь :){/post}{/quote}  
Хоть один случай бы увидеть, когда никак. Видимо я один понимаю вредность этого оператора.  
Ну -  
http://khpi-iip.mipk.kharkiv.edu/library/extent/dijkstra/pp/ewd215.html  
почитайте(прям сейчас нашел, не умею, как Дима, доходчиво объяснять)

{quote}{login=Hugo}{date=10.06.2010 02:04}{thema=}{post}Но что-то есть в этом GoTo... В AutoIt с 3-й версии его вообще убрали, тоже мучался, так я и не понял, как сподручнее обходить, местами вообще придуманный алгоритм менять приходилось...{/post}{/quote}  
Вопрос структурирования прогаммы. А вообще-то я рад, что привлек к обсуждению таких уважаемых на форуме ребят. С вами уютно!

{quote}{login=слэн}{date=10.06.2010 02:12}{thema=}{post}  
вот пример, когда как, но не красиво и yt'aatrnbdyj^{/post}{/quote}  
Согласен. Вот мой пример:  
http://forum.ixbt.com/topic.cgi?id=23:31044

{quote}{login=Казанский}{date=10.06.2010 02:17}{thema=Re: }{post}{quote}{login=слэн}{date=10.06.2010 02:12}{thema=}{post}  
вот пример, когда как, но не красиво и yt'aatrnbdyj^{/post}{/quote}  
Согласен. Вот мой пример:  
http://forum.ixbt.com/topic.cgi?id=23:31044{/post}{/quote}  
Это пример, когда нельзя?  
Set s = Range("a:a").Find("конь")  
If Not s Is Nothing Then  
   If s.Offset(0, 1) = "белый" Then  
       answer = "YES"  
   Else  
       GoTo label1  
   End If  
Else  
label1:  
   answer = "NO"  
End If  
Как минимум две строки лишние и одной недостает(Set s = Nothing).

можно еще так:  
 
Sub t()  
on error goto ex  
anser = "NO"  
If Range("a:a").Find("конь").Offset(0, 1) = "белый" Then answer = "YES"  
ex:End Sub

В слове anser буква W пропущена, но это уже флуд. Если честно - боюсь, Диме позавчера спать не давали, оффтопили по полной. Чувствую, психанет и начнет стирать все без разбора. А главное по делу! Хотя этот топик флудом не считаю. Мы, как программеры, обсуждаем целесообразность применения оператора goto.

Ну, я бы не был так категоричен, утверждая, что обсуждение целесообразности применения оператора goto в топике с названием "Описание применения "Set"" не является оффтопом...  
Бедный топик-стартер уже давно наверное забросил читать эту тему ввиду распухания головы от развёрнутой здесь продвинутыми программистами дискуссии...

<но я уже приводил на форуме множество раз алгоритмы, с использованием on error goto ( и в паре с ним еще и просто goto)>  
 
вот пример из моего решателя балды: (уж поверьте - оптимизировал-оптимизировал :) )  
 
Sub fnd(ByVal s$)  
Dim lens&  
lens = Len(s)  
'If lens < maxw Then Exit Sub  
Dim arr_r, pos&, n&, k&, sr$  
Dim s_n$, s_e$  
If s = "?êî" Then  
   pos = pos  
End If  
On Error Resume Next  
     
   pos = InStr(1, s, "?")  
   s_n = Left(s, pos - 1)  
   s_e = Right(s, lens - pos)  
   ReDim arr_r(1 To 16)  
For k = 1 To 33  
   On Error GoTo er1  
   sr = s_n & arr_abc(k) & s_e  
   If cwt(sr) Then:  
   On Error GoTo n1  
   If chad(sr) = 0 Then GoTo nxt1  
n1: n = n + 1  
   If n > UBound(arr_r) Then ReDim Preserve arr_r(1 To n + 16)  
   arr_r(n) = sr  
   If n > UBound(arr_letter) Then ReDim Preserve arr_letter(1 To n + 99)  
   arr_letter(n) = arr_abc(k)  
   Resume nxt1  
er1: Resume nxt1  
nxt1: Next  
   sr = StrReverse(s)  
   pos = Len(s_e)  
   s_n = Left(sr, pos)  
   s_e = Right(sr, lens - pos - 1)  
On Error GoTo er2  
For k = 1 To 33  
   On Error GoTo er2  
   sr = s_n & arr_abc(k) & s_e  
   If cwt(sr) Then:  
   On Error GoTo n2  
   If chad(sr) = 0 Then GoTo nxt2  
n2:  n = n + 1  
   If n > UBound(arr_r) Then ReDim Preserve arr_r(1 To n + 16)  
   arr_r(n) = sr  
   If n > UBound(arr_letter) Then ReDim Preserve arr_letter(1 To n + 99)  
   arr_letter(n) = arr_abc(k)  
   Resume nxt2  
er2: Resume nxt2  
nxt2: Next  
If n = 0 Then Exit Sub  
'If lens > maxw + 2 Then  
'    maxw = lens - 2  
'    k = 7  
'    Cells(k, 1).Resize(n, 4).Insert Shift:=xlDown  
'Else  
   k = Cells(Rows.Count, 1).End(xlUp).Row + 1  
'End If  
Application.EnableEvents = False  
Cells(k, 1).Resize(n) = Application.Transpose(arr_r)  
Cells(k, 3).Resize(n) = Cells(i, j).Address(0, 0)  
Cells(k, 2).Resize(n) = lens  
Cells(k, 4).Resize(n) = Application.Transpose(arr_letter)  
Application.EnableEvents = True  
numn = numn + n  
numv = numv + 66  
End Sub