ник: kot_k_k
тип того - чем больше нахомутать в последенем ELSE - тем больше красоты получим в выходной стороке.
п.с. русские буквы не рекомендуется использовать в именах таблиц/полей/функций
п.с.с. Dim Str As String - конечно красиво НО Str - это функция VBA.