You are welcome.
Also FWIW, here is a slightly different approach...
'--
Public Function Encode(InputString As String) As String
Dim intLen As Long
Dim intCount As Long

intLen = Len(InputString)
For intCount = 1 To intLen
Encode = Encode & Chr$(VBA.Asc(Mid$(InputString, intCount, 1)) + 1)
Next
End Function
--
Jim Cone
Portland, Oregon USA
http://tinyurl.com/PrimitiveSoftware

..
..
..

"Nicawette"
wrote in message
...
Hi Jim
Thank you the problem was the declaration, so far so close
tx