Public Function Char2Dual(ByVal nChar As Integer) As String
  If nChar < 0 Or nChar > 255 Then Exit Function
  Do
    If nChar Mod 2 = 0 Then
      Char2Dual = "0" & Char2Dual
    Else
      Char2Dual = "1" & Char2Dual
    End If
    nChar = nChar \ 2
  Loop While nChar > 0
 
  Char2Dual = Format(Char2Dual, "00000000")
End Function

Dim I As Long
Dim sTemp As String
Dim sText As String
 
sText = "Hallo"
sTemp = ""  
For I = 1 To Len(sText)
  sTemp = sTemp & Char2Dual(Asc(Mid$(sText, I, 1))) & " "
Next I
MsgBox sTemp

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de