Usa l'istruzione/funzione Mid$:
codice:
Dim str As String
Dim carattere As String
str="Prova"
carattere = Mid$(str,2,1) 'carattere sarà uguale a "r"
Mid$(str,2,1)="z" 'str sarà uguale a "Pzova"
.
P.S.: hai cambiato solo il titolo del primo post... il titolo della discussione è rimasto lo stesso.