Public Function ConvertBinaryToDecimal(BinVal As String) As String
    Dim iVal#, temp#, i%, Length%
    Length = Len(BinVal)
    For i = 0 To Length - 1
        temp = CInt(Mid(BinVal, Length - i, 1))
        iVal = iVal + (temp * (2 ^ i))
    Next i
    ConvertBinaryToDecimal = iVal
End Function