Переполнение двоичной функции в десятичную

Question

Когда я отправляю строку 1111101110001110 в виде двоичного числа нужного мне числа, я получаю

Ошибка переполнения

в коде. Который в десятичном виде будет 64398. Я возвращаю его в целое число в основной функции. Это число должно быть достаточно маленьким, чтобы не переполнять целое, верно? Любая помощь будет принята с благодарностью.

Function Bin2Dec(ByVal Binarystring As String) As Integer ' This converts a binary to a decimal
    Dim X As Integer
    For X = 0 To Len(Binarystring) - 1
        Bin2Dec = CDec(Bin2Dec) + Val(Mid(Binarystring, _
                  Len(Binarystring) - X, 1)) * 2 ^ X
    Next
End Function