How to deal with hexadecimal values

[leinad31]

I wasn't discussing the actual processing which I had no idea about. I was pointing out the use of strings and concept of byte manipulation.

Option Explicit

Private Sub Form_Load()
Dim strArr() As Byte
Dim i As Long

   strArr = "Hello World"
   For i = 0 To UBound(strArr) - 1
      Debug.Print Hex(strArr(i)) & ", " & Chr(strArr(i)) & ", shifted " & IIf(i<250, Chr(i+5), Chr(i-250))
   Next
End Sub

Now isn't the array easier to work with than your string?