excel - 溢出二进制到十进制函数

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

标签： excelvba