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

[www.pc3enter.tk]

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

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

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

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

[www.pc3enter.tk]

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