Private Sub CommandButton1_Click()
Dim Text As String
Dim str As String
Text = TextBox1.Text
'A = Devider(Text)
'MsgBox (A(1))
MsgBox (DEC_BIN(Val(TextBox1.Text)))
End Sub

Function Devider(Text As String) As Variant
Dim A(1 To 1000) As String
Dim k As Single
Dim n As Integer
k = Len(Text) / 32
If Fix(k) = k Then
    n = k
Else
    n = k + 1
End If

For i = 1 To n
    A(i) = Mid(Text, (i - 1) * 32 + 1, 32)
Next i
qwe = A
End Function
Function DEC_BIN(dec As Long) As String
    DEC_BIN = dec Mod 2
    If dec \ 2 <> 0 Then
        DEC_BIN = DEC_BIN(dec \ 2) + DEC_BIN
    End If
End Function

Function BIN_DEC(x As String) As String
For i = 1 To Len(x)
    s = s + Mid(x, i, 1) * 2 ^ (Len(x) - i)
Next i
DBL_DEC = s
End Function