Převod textu na binární formu ve Visual Basicu

Na formulář vložte textbox (2x) a tlačítko (1x)
Pro textbox2 nastavte vlastnost multiline na true a vlastnost scrollbar na 2 (Vertikální) roztáhněte textbox2 aby byly vidět alespoň 4 řádky. Do kódu formuláře vložte následující text a můžete experimentovat.

Private Sub Command1_Click()
  With Text2
    '.MultiLine = True (RO)
    '.ScrollBars = 2 '(VERTICAL,RO)
    .Font = "Courier"
  End With
  Text2.Text = str2bin(Text1.Text)
End Sub

Public Function str2bin(vstup)
 Dim sTemp As String
 Dim x As Integer
 Dim z As Integer
 Dim b As Integer
 
 sTemp = ""

  For z = 1 To Len(vstup)
    x = Asc(Mid(vstup, z, 1))     

    For b = 7 To 0 Step -1
      If (x >= 2 ^ b) Then
        sTemp = sTemp & "1"
        x = x - 2 ^ b
      Else
        sTemp = sTemp & "0"
      End If
    Next b

    'Formatovani sTempu
    ' 8bit mezera hex mezera znak
    sTemp = sTemp & " " & _
             Hex(Asc(Mid(vstup, z, 1))) & _
             " " & Mid(vstup, z, 1) & _
             vbNewLine
  Next z
  str2bin = sTemp
End Function