AscB

Public Function AscB(ByVal InputString As String) As Long

Returns the binary character code of the (first character) of the specified string (0-255).

Public Function PrintBytes(pBinaryString As String)
   Dim lCount As Long
   Dim lChar As String
   
   For lCount = 1 To Len pBinaryString
       lChar = Mid(pBinaryString, lCount, 1)
       
       SendDebug lCount, AscB(lChar), If(AscB(lChar) > 32, lChar, "")
   Next
End Function

See also: