Modificare lettera per lettera

[maxolino]

Come da oggetto,

come faccio a farmi una funzioncina in cui da una parola, o cmq da una stringa, cambio ogni lettera con un char(lettera)+1

Spero di essermi spiegato e un piccolo aiuto da parte vostra

[longline]

StringaDaModificare = "prova"
StringaModificata = ""
For Posizione = 1 To Len(StringaDaModificare)
  StringaModificata = StringaModificata & Chr(Asc(StringaDaModificare(Posizione))+1)
Next

Non riesco a capire come mai vada a capo con quell'1 nonostante il codice sia nel tag del codice... tu scrivi l'uno e la parentesi nella riga precedente...

[maxolino]

Ciao e grazie della risposta, ottengo questo errore qui:

Tipo non corrispondente: 'StringaDaModificare'

Su questa riga:
StringaModificata = StringaModificata & Chr(Asc(StringaDaModificare(Posizione))+1)

[longline]

Ops, scusami, ho fatto un errore

StringaDaModificare = "prova"
StringaModificata = ""
For Posizione = 1 To Len(StringaDaModificare)
  StringaModificata = StringaModificata & Chr(Asc(Mid(StringaDaModificare, Posizione, 1))+1)
Next

[maxolino]

E' perfetta!!!

Grazie mille!!!!!!!!!!!!!!!!!

[longline]

Prego!