Ms access 替换特定图案中的符号

为了找到模式，我编写了这样的代码。在“说明”中，数字和文字之间会出现“.”，例如，“0.5本教科书和钢笔。随便什么。”或“我喜欢炸鸡和汉堡。65毫米。”
我想在文本之间而不是数字之间替换“.”

Dim FindPeriodIndex As Integer
Do While FindPeriodIndex = InStr(Description, Chr(46)) <> 0

    If IsNumeric(Mid(Description, FindPeriodIndex - 1, 1)) = False Or   IsNumeric(Mid(Description, FindPeriodIndex + 1, 1)) = False Then
        Description = SuperReplace(Description, Chr(46), " ")
    End If
 Loop

Dim FindPeriodIndex作为整数
当FindPeriodIndex=InStr（描述，Chr（46））0时执行
如果IsNumeric（Mid（Description，FindPeriodIndex-1,1））=False或IsNumeric（Mid（Description，FindPeriodIndex+1,1））=False，则
Description=超级替换（Description，Chr（46），“”）
如果结束
环

Superreplace是我创建的一个函数，它与replace函数类似，但可以替换数组。这在我的问题上无关紧要。我创建的代码实际上不起作用，有人能更好地解释为什么它不起作用吗？谢谢

试试看

Dim FindPeriodIndex As Integer
Do While FindPeriodIndex = InStr(Description, Chr(46)) <> 0

    If IsNumeric(Mid(Description, FindPeriodIndex - 1, FindPeriodIndex)) = False Or   IsNumeric(Mid(Description, FindPeriodIndex, FindPeriodIndex + 1)) = False Then
        Description = SuperReplace(Description, Chr(46), " ")
    End If
 Loop

Dim FindPeriodIndex作为整数
当FindPeriodIndex=InStr（描述，Chr（46））0时执行
如果IsNumeric（Mid（描述，FindPeriodIndex-1，FindPeriodIndex））=False或IsNumeric（Mid（描述，FindPeriodIndex，FindPeriodIndex+1））=False，则
Description=超级替换（Description，Chr（46），“”）
如果结束
环