Visual Basic - Sustitucion de Caracteres

En una variable tengo una cadena de caracteres y de esta cadena le quiero cambiar un cierto caracter por ejemplo:

Var= "Victor* Hugo* Chavez* Martinez" y quero cambiar los * por ,

Funcion (Cadena, CaracterASust, CaracterQueSustituye)

Gracias.

Espero que te sea de ayuda

For i = 1 To Len(Cadena)
letra = Mid(Cadena, i, 1)
If letra = CaracterASust Then
Cadena = Cadena + CaracterQueSustituye
Else
Cadena = Cadena + letra
End If
Next i