[VB5] Sostituire caratteri di una stringa

[gio823]

'//
'// Restituisce una stringa ottenuta da vsString sostituendo
'// vsFindChar con vsReplaceChar
Public Function ReplaceChar(ByVal vsString As String, ByVal vsFindChar As String, ByVal vsReplaceChar As String) As String

Do While (InStr(1, vsString, vsFindChar) > 0)
Mid$(vsString, InStr(1, vsString, vsFindChar), 1) = vsReplaceChar
Loop
ReplaceChar = vsString

End Function