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.

Rispondi quotando