[RESOLVED] Store character by character into a string without string arrays [VB6]

So what I am trying to do is a simple encryption by altering the ASCII value of the characters. Here is what I have at present

For Name = 1 To Len(Name)
Enc = Mid(Name, Index, 1)
Enc = Chr(Asc(Enc) + 3)
Next Index

I can change the ASCII value by 3 for each character, but how do I get it out in a string? Is this possible without arrays? It would good to get it as a string, either as Enc itself or another string would be fine..