３２ビット正数（０〜4294967295）を２進数表記するソフトを作成。
longだと符号付４バイトなので正数は３１ビットまでしか扱えません。
double符号付８バイトなので変更したところ、MOD関数が処理できないようです。
プログラムを実行させるにはどのようにすればよいでしょうか。

    Dim ltmp As Long
'   Dim ltmp As Double
    Dim iloop As Integer
    
    ltmp = Text1.Text
    Text2.Text = "" 'クリア
    For iloop = 1 To 32
        Text2.Text = Text2.Text & (ltmp Mod 2)
        If ltmp Mod 2 Then ltmp = ltmp - 1
        ltmp = ltmp / 2
        '４ビット毎にスペース追加
        If (iloop Mod 4) = 0 Then Text2.Text = Text2.Text & " "
    Next iloop

Mod演算子(Mod 関数ではありません)について、
マイクロソフトのサポート情報によると、
Mod 演算子は整数演算のため、演算前に自動的に
整数に変換されるとのことです。

http://support.microsoft.com/kb/q205053/

上記の日本語サイトは、英語版を自動翻訳しているため
翻訳がおかしな部分がありますので、英語版(下のリンク)を
読まれた方がいいです。

http://support.microsoft.com/kb/205053/en-us/

ですので・・・

> double符号付８バイトなので変更したところ、
> MOD関数が処理できないようです。

Double型だから処理できないのではなく、
Long型に変換したときにオーバーフローするから処理できないのです。
Double型でも Long 型に収まる範囲の値であれば処理できます。

あと、
> ３２ビット正数（０〜4294967295）を２進数表記するソフトを作成。

とありますが、投稿されたプログラムをはしらせると、
２進数表記を逆にした数値になると思いますが、これは正しいのですか？

たとえば、１０進数「１２３」を２進数にしたときの値をＡ、
このロジックを使って計算した結果をＢとすると、３２桁で表記すると

Ａ　0000 0000 0000 0000 0000 0000 0111 1011
Ｂ　1101 1110 0000 0000 0000 0000 0000 0000

となりますが、これはこれで正しいのですか？

> プログラムを実行させるにはどのようにすればよいでしょうか。

１つの手法として参考にしてください。

ltmp を Double型として、Itmp に代入された値が (2^31 - 1) より大きいかチェック

◆　大きい場合
(2 ^ 31 - 1) を引いた値を２進数にする。
得られた２進数を文字列として扱って、
計算後に先頭１桁の「０」を「１」に置き換える。

◆　小さい場合
そのまま計算を進めて、答えを得る。


プログラム自体は敢えて書きません。
簡単ですので、ご自身で考えてみてください。
考えることはスキルアップするためには大事ですので。

ミッキー様

> たとえば、１０進数「１２３」を２進数にしたときの値をＡ、
> このロジックを使って計算した結果をＢとすると、３２桁で表記すると
>
> Ａ　0000 0000 0000 0000 0000 0000 0111 1011
> Ｂ　1101 1110 0000 0000 0000 0000 0000 0000
> となりますが、これはこれで正しいのですか？
ご指摘ありがとうございました。改修します

> ltmp を Double型として、Itmp に代入された値が (2^31 - 1) より大きいかチェック

参考に作成します。ありがとうございました

すみません。自分の書き込みで間違いありました。

> ltmp を Double型として、Itmp に代入された値が (2^31 - 1) より
> 大きいかチェック

> ◆　大きい場合
> (2 ^ 31 - 1) を引いた値を２進数にする。
> 得られた２進数を文字列として扱って、
> 計算後に先頭１桁の「０」を「１」に置き換える。

2^31 - 1 引いて得られた値から、更に１を引いてください。
最終的には 2 ^ 32 を引けばいいのですが、オーバーフロー
するかもしれませんので、いきなり 2 ^ 32 で引かないでください。