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
پاسخ با نقل قول