Prova così:

codice:
replacefinoa5 = Replace("a b a c a d a e f a g a h a i", "a", "z", 1, 5)

Replace(stringa,carattere da sostituire,carattere in sostituzione,inizio,quante volte esegue la replace)