Ciao ranza!!!123,
potresti utilizzare la funzione Replace la cui firma è la seguente:
'Replace(espressione, cerca, sostituiscicon[, inizio[, conteggio[, confronto]]])
Esempio se vuoi sostituire la "i" con la "D":
Private Sub Command1_Click()
Dim sMyString As String
sMyString = "Ciao"
Label1.Caption = Replace(sMyString, "i", "D", , 1)
End Sub