Function Bin2Dec(ByVal Num As String) As Long
        Dim n, x, y As Long
        n = Num.Length - 1
        Do While n > -1
            x = Convert.ToInt32(Num.Substring((Num.Length - 1) - n, 1))
            If x = "1" Then y += (2 ^ (n))
            n -= 1
        Loop
        Return y
    End Function