VBA:2進数から10進数の変換で、11桁以上ができない

Question

前提・実現したいこと

ここに質問の内容を詳しく書いてください。
2進数を10進数に変換する問題で、2進数の桁数を無制限にしたいです。
しかし、10桁までは処理されますが、11桁以降が処理されません。
オーバーフローとなってしまいます。

発生している問題・エラーメッセージ

エラーコード６：オーバーフロー

該当のソースコード

Sub test()

    Dim data() As String
    Dim sum As Long
    Dim k As Integer
    Dim i As Integer
    Dim j As Integer
    Dim num As String
    Dim m As Integer
    
    
    '数を入力
    num = InputBox("2進数を入力してください ")
    
    '入力された数の長さを取得
    m = Len(num)
    
    '取得した長さの配列を定義
    ReDim data(m)
    
    '配列に入力された数を格納
    k = m - 1
    
    Do While k >= 0
             
        data(k) = num Mod 10　　'デバッグするとここになります
        num = num \ 10
    
        k = k - 1
    
    Loop
    
    i = 0
    j = m - 1
    
    '10進数に変換
    Do While i < m
    
        sum = sum + data(i) * (2 ^ j)
        i = i + 1
        j = j - 1
    
    Loop
    
    MsgBox "10進数は" & sum & "です。"
    

End Sub

試したこと

型の変更など

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

Mod演算子は、両辺を整数として扱います（MSDN）。

VBAには整数が32ビットまでしかありませんので、Modで扱えるのは21億ちょっとまでです。

数値演算ではなく、文字列操作で1桁ずつ切り出すべき場面かと思います。

Answer 2

Long型で表現できるのは -2,147,483,648 ～ 2,147,483,647 です。
無制限というのはなかなか難しいですね。

Answer 3

data(k) = num Mod 10　　'デバッグするとここになります
num = num \ 10

を

data(k) = Right(num, 1)
num = num / 10
に変更することで、15桁くらいまでは処理できました。
しかし、それ以降はエラーはないものの、結果がずれてしまいました。
ここで諦めます。