Private Sub Form_Load()
Dim p As String
Dim p1 As String
Dim temp As Integer
Dim rez As String
p ="0111000001110010011011110110001101101001011101000110000_
10110100000100000011011010110000101101100011011110010000001_
101001001000000110001001101111011011000110100100100000011011_
0101100101001000000110011101101100011000010111011001100001"
For n = 1 To Len(p) Step 8
p1 = Mid$(p, n, 8 )
temp = BinaryToDecimal(p1)
rez = rez & Chr(temp)
Next n
Text1.Text = rez
End Sub
Public Function BinaryToDecimal(Binary As String) As Long
Dim n As Long
Dim s As Integer
For s = 1 To Len(Binary)
n = n + (Mid(Binary, Len(Binary) - s + 1, 1) * (2 ^ _
(s - 1)))
Next s
BinaryToDecimal = n
End Function