문자열을 16진수처리

   Dim linebuffer As String

   Dim sHex As String

   Dim i As Integer

   sHex = “”

   linebuffer = “Hello”

   For i = 1 To Len(linebuffer)

        sHex = sHex & Hex(Asc(Mid(linebuffer, i, 1)))

   Next i

   Debug.Print sHex