Imports System
Imports System.Collections
 
Public Class Test
    Public Shared Sub Main()
        Dim Input As String = "000000000100000100000000010000100000000001000011"
        Dim Bits As New BitArray(Input.Length)
 
        For x As Integer = 0 To Input.Length - 1
            Bits(x) = Convert.ToBoolean(Integer.Parse(Input.Chars(x)))
        Next
 
        Dim Result As String = BitArrayToString(Bits)
        Console.WriteLine(Result)
    End Sub
 
    Public Shared Function BitArrayToString(ByVal Bits As BitArray) As String
        Dim ReversedValues As Boolean() = New Boolean(Bits.Count - 1) {}
        For x As Integer = 0 To Bits.Count - 1
            ReversedValues((ReversedValues.Length - 1) - x) = Bits(x)
        Next
 
        Dim ReversedBits As New BitArray(ReversedValues)
        Dim Bytes As Byte() = New Byte(Math.Ceiling(ReversedBits.Length / 8) - 1) {}
        ReversedBits.CopyTo(Bytes, 0)
 
        Dim Result As String =  System.Text.Encoding.Unicode.GetString(Bytes)
        Dim Chars As Char() = Result.ToCharArray()
        Array.Reverse(Chars)
 
        Return New String(Chars)
    End Function
End Class

SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uQ29sbGVjdGlvbnMKClB1YmxpYyBDbGFzcyBUZXN0CiAgICBQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKICAgICAgICBEaW0gSW5wdXQgQXMgU3RyaW5nID0gIjAwMDAwMDAwMDEwMDAwMDEwMDAwMDAwMDAxMDAwMDEwMDAwMDAwMDAwMTAwMDAxMSIKICAgICAgICBEaW0gQml0cyBBcyBOZXcgQml0QXJyYXkoSW5wdXQuTGVuZ3RoKQoKICAgICAgICBGb3IgeCBBcyBJbnRlZ2VyID0gMCBUbyBJbnB1dC5MZW5ndGggLSAxCiAgICAgICAgICAgIEJpdHMoeCkgPSBDb252ZXJ0LlRvQm9vbGVhbihJbnRlZ2VyLlBhcnNlKElucHV0LkNoYXJzKHgpKSkKICAgICAgICBOZXh0CgogICAgICAgIERpbSBSZXN1bHQgQXMgU3RyaW5nID0gQml0QXJyYXlUb1N0cmluZyhCaXRzKQogICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKFJlc3VsdCkKICAgIEVuZCBTdWIKCiAgICBQdWJsaWMgU2hhcmVkIEZ1bmN0aW9uIEJpdEFycmF5VG9TdHJpbmcoQnlWYWwgQml0cyBBcyBCaXRBcnJheSkgQXMgU3RyaW5nCiAgICAgICAgRGltIFJldmVyc2VkVmFsdWVzIEFzIEJvb2xlYW4oKSA9IE5ldyBCb29sZWFuKEJpdHMuQ291bnQgLSAxKSB7fQogICAgICAgIEZvciB4IEFzIEludGVnZXIgPSAwIFRvIEJpdHMuQ291bnQgLSAxCiAgICAgICAgICAgIFJldmVyc2VkVmFsdWVzKChSZXZlcnNlZFZhbHVlcy5MZW5ndGggLSAxKSAtIHgpID0gQml0cyh4KQogICAgICAgIE5leHQKCiAgICAgICAgRGltIFJldmVyc2VkQml0cyBBcyBOZXcgQml0QXJyYXkoUmV2ZXJzZWRWYWx1ZXMpCiAgICAgICAgRGltIEJ5dGVzIEFzIEJ5dGUoKSA9IE5ldyBCeXRlKE1hdGguQ2VpbGluZyhSZXZlcnNlZEJpdHMuTGVuZ3RoIC8gOCkgLSAxKSB7fQogICAgICAgIFJldmVyc2VkQml0cy5Db3B5VG8oQnl0ZXMsIDApCiAgICAgICAgCiAgICAgICAgRGltIFJlc3VsdCBBcyBTdHJpbmcgPSAgU3lzdGVtLlRleHQuRW5jb2RpbmcuVW5pY29kZS5HZXRTdHJpbmcoQnl0ZXMpCiAgICAgICAgRGltIENoYXJzIEFzIENoYXIoKSA9IFJlc3VsdC5Ub0NoYXJBcnJheSgpCiAgICAgICAgQXJyYXkuUmV2ZXJzZShDaGFycykKCiAgICAgICAgUmV0dXJuIE5ldyBTdHJpbmcoQ2hhcnMpCiAgICBFbmQgRnVuY3Rpb24KRW5kIENsYXNz