Public Function FromBin(ByVal Number As String) As Integer
    Dim pos As Integer = 1, l As Integer = Number.Length
    Dim Result As Integer, Current As Byte
    Do
        Current = Conversion.Int(Mid(Number, pos, 1))
        Result += (Current * 2 ^ (l - pos))
        pos += 1
    Loop While pos <= l
    Return Result
End Function

Public Function ToBin(ByVal Number As Integer) As String
    Dim Rest As Integer, Result As String = ""
    Do
        Rest = Number Mod 2
        Number = Number \ 2
        Result = Rest.ToString() & Result
    Loop While Number > 0
    Return Result
End Function