문자열을 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