vedi se te piace così:
codice:
stringa = "ABCD"
    
For i = 1 To Len(stringa)
    Carattere = Mid(stringa, i, 1)
    NuovoCarattereAscii = Asc(Carattere) + 1
    Nuovocarattere = Chr(NuovoCarattereAscii)
    Nuovastringa = Nuovastringa & Nuovocarattere
Next