vba excel: sostituire un carattere al'interno di una stringa

[karug64]

Salve a tutti.

Dovrei all'interno di un ciclo for e al verificarsi di una condizione sostituire il carattere corrispondente al contatatore del ciclo di una stringa.

Codice: Seleziona tutto

pp="**********"
for x = 1 to 10
if sheets("Test").cells(x,1).value = "S" then
 pp = ?????? <<<< problema

endif
next x

Supponendo che la condizione sia soddisfatta per x = 2 e 5 alla fine del ciclo pp dovrebbe essere *S**S*****

Come si fa ?
Non riesco a trovare una funzione che faccia questo....

Grazie

[scossa]

Codice: Seleziona tutto

pp = "**********"
For x = 1 To 10
If Sheets("Test").Cells(x, 1).Value = "S" Then
 pp = Application.WorksheetFunction.Replace(pp, x, 1, "S")
End If
Next x

[karug64]

Grazie