十進位轉二進位(編號：4692)

注..TEXT1是使用者輸入的十進位數字(TEXT2則是顯示出來的二進位數字)
請幫我看一下以下程式碼有何錯誤~~謝謝
我在Command1輸入以下程式碼!
ABC=TEXT1.TEXT
DO
CBA=ABC MOD 2
ABC=ABC/2
ER$=CBA & ER$
LOOP UNTIL (ABC ＜ 2)
TEXT2.TEXT =ER$