<code>  Dim myString As String
  Dim myStringBin As String
  Dim I As Long
 
  myString = "Teststring"
 
  <font color=green>' myString in Binären Code umwandeln</font>
  myStringBin = ""
  For I = 1 To Len(myString)
    myStringBin = myStringBin & _
      Byte2BinHex(Mid$(myString, I, 1), 0)
  Next I
 
  MsgBox myStringBin</code>