Пользовательский аналог функции Replace в Visual Basic

[yula92]

Здравствуйте,нужна ваща помощь. Нада написать пользовательский аналог Replace.Вот что у меня есть,но говорят что это не работает. И вообще нада чем проще и понятнее тем лучше.

Private Function proc(str,fndrpl,start,count)
k=0
for i=start to len(str)-len(fnd)+1
a=mid(str,i,len(fnd)
if a=fnd then
str = mid (str,1,i-1)+rpl+mid)str/str,i+len(fnd)
k=k+1
End if
if count=k then
proc = str
Exit Function
End if
Next i
proc=str
End Function

P.S. Если возможно,то хотя бы с маленькими комментами)