[VB] Cercare e sostituire un carattere in una stringa

[vonkranz]

Cosi' e' un po' + compatto

   Posizione = 1
   Stringa = "<La mia stringa<è questa"
   Cerca = "<":   SostituisciCon = "@"
   Do While Posizione > 0
      Posizione = InStr(Stringa, Cerca)
      If Posizione > 0 Then Mid(Stringa, Posizione) = SostituisciCon
   Loop
   Debug.Print Stringa

Ciao.