리습 실행시 오류가 납니다. 도와주세요.

문자서로 맞교환하는 리습인데요
리습 실행시에러가 납니다.
내용이 맞는지 확인좀 해주세요
파일도 같이올려드려요


(defun c:TSW (/ ss obj1 obj2 str1 str2) ; 명령어 본인이 원하는 단어로 바꾸어서 사용할수 도 있어요
        (prompt ” ………문자열 1:1 맞교환하기…   A <-> B   선택문자가 2개인 경우만 1:1 맞교환됨 “)
  (if (and
 (setq ss (ssget ‘((0 . “TEXT”)))) ;문자를 선택해라
 (= (sslength ss) 2) ;선택한 문자가 두개일경우만 실행시켜라
 (setq obj1 (vlax-ename->vla-object (ssname ss 0)))
 (setq obj2 (vlax-ename->vla-object (ssname ss 1)))
 (setq str1 (vla-get-textstring obj1))
 (setq str2 (vla-get-textstring obj2))
      )
      (progn
 (vla-put-textstring obj1 str2)
 (vla-put-textstring obj2 str1)
      )
  )
)