Excel VBA 10進数→2進数

ExcelのVBAの練習で、Do~ Loop Untilを使用し、
セルA1に入力した値をA2に表示使用としてます。
(B2はworksheet関数のDEC2BINで、A1の2進数を算出してます。)

Codeは下記に記載してますが、
0が表示されず、正確な結果を出せない状況です。
(色々､試行錯誤してみたんですが、、、)
どなたか原因が分かれば、お知恵を頂きたく思い質問させて頂きました。


Sub DecToBin() 'WorkSheet関数 DEC2BIN (10進数を2進数に変換)
Range("A2").Value = ""
Dim Number As Long
Dim myAnswer As String

Number = Range("A1").Value

Do
myAnswer = Number Mod 2
Number = Number ¥ 2
Range("A2").Value = myAnswer & Range("A2").Value
Loop Until Number < 1

End Sub

No.1 ベストアンサー 回答者： 神崎みなも 回答日時： 2018/07/31 19:52

ここに求める回答があると思います

http://note.phyllo.net/?eid=539359

この回答へのお礼

この度は迅速なご対応ありがとうございまいました。
書式設定の問題だったんですね！
勉強になりました！

お礼日時：2018/07/31 19:59