如何获取Access vba中的函数的返回值？

如何解决如何获取Access vba中的函数的返回值？

我想使用以下功能将字符串中的几个字符替换为其他几个字符：

Public Function CharacterChange(S As String) As String
Dim A As String * 1
Dim B As String * 1
Dim i As Integer

Const AccChars = "°é*±äöüßaaŐŰú#~Mµ"
Const RegChars = "DEX+aousaaouudcMU"

For i = 1 To Len(AccChars)
A = Mid(AccChars,i,1)
B = Mid(RegChars,1)
S = Replace(S,A,B)

Next

CharacterChange = S

Exit Function
End Function

然后我在这里调用该函数：

Private Sub ButtonClick()
...
CharacterChange(MyText)
...
End Sub

但是似乎我没有得到函数的结果，在调用它之后，我仍然看到带有特殊字符的原始文本。有什么问题，请告知。