nn incollarmi un pezzo di codice ala volta...fai un bel programmino, poi una volta finito me lo passi e lo controllo (come un bravo insegnante
)
Cmq metti $ qui nel MID: If InStr("aeiou", Mid(vtesto, i, 1)) > 0 Then
e poi le stringhe le puoi mettere benissimo Stringa=Stringa & "x" (a me piace collegare con la & ma va benissimo anche la tua +)!