جایگزین دستور Replace

سلام دوستان عزیز

یک سوال داشتم و آن هم اینکه فرض کنید تو دستور کد نویسی ما تابع Replace را در اختیار نداریم

حالا چگونه باید کدی بنویسیم و یا به عبارتی ماژولی طراحی کنیم که کار Replace را برای ما به خوبی انجام بده

باتشکر از شما ممنون می شوم که کمکم کنید

Public Function Replac(ByVal Expression As String, ByVal Find As String, ByVal Replac  As String)

aa = InStr(1, Expression, Find)

If aa = 0 Then Replac = Expression: Exit Function

Replac = Mid(Expression, 1, aa - 1) & Replac  & Mid(Expression, aa + Len(Find))

End Function