CodeItBetter Programming Another VB Programming Blog

'Math - How to convert Binary Number to Decimal Number

Private Function BinaryToDecimal(ByVal sValue As String) As Long
    Dim lValue As Long, X As Long, K As Long
    K = Len(sValue)
    For X = K To 1 Step -1
        If Mid$(sValue, X, 1) = "1" Then
            If K - X > 30 Then
                lValue = lValue Or -2147483648#
            Else
                lValue = lValue + 2 ^ (K - X)
            End If
        End If
    Next X
    BinaryToDecimal = lValue
End Function
 
Private Sub Main()
    MsgBox BinaryToDecimal("101010101")
End Sub