Public Function Binary2Decimal(ByVal Bin As String) As String
        Dim l, i As Integer
        Try
            For i = 0 To Bin.Length - 1
                l = (l << 1) + Integer.Parse(Bin.Substring(i, 1))
            Next
        Catch ex As Exception
            Return ex.ToString
            Exit Function
        End Try
        Return l
    End Function