Dim Byt(0 To 9) As Byte
Dim i As Integer
For i = LBound(Byt) To 9
'Debug.Print CInt(Asc(Mid("abcdefghig", i + 1, 1)))
Byt(i) = CInt(Asc(Mid("123456789g", i + 1, 1)))
Next i
Dim strI As String
For i = LBound(Byt) To 9
strI = strI + CStr(Chr(Byt(i)))
Next i