Как мне удалить точку в конце каждой подстроки

Question

Пытаясь удалить точку в конце каждой подстроки A6.3., A6.5., я нашел следующее решение. Однако я получаю ошибку во время выполнения "5017"

Это то, что у меня есть

With CreateObject("VBScript.RegExp")
    .Global = True
    .IgnoreCase = True
    .Pattern = "(?<=[1-9]\.[1-9])\."
    RemoveNumbers = .Replace("A6.3., A6.5. ", "")
End With

MsgBox RemoveNumbers

Результат должен быть: A6.3, A6.5

Answer 1

Просто удалите точку без регулярных выражений:

Sub RemoveLastDot()
    myValues = Split("A6.3., A6.5.", ",")
    myRslt = ""
    myFirst = ""
    For Each myVal In myValues
        If InStrB(Trim(myVal), ".") = Len(Trim(myVal)) Then
           myRslt = myRslt & myFirst & Left(Trim(myVal), Len(Trim(myVal)) - 1)
           else
               myRslt = myRslt & myFirst & Trim(myVal)
        End If
        myFirst = ", "
    Next
    MsgBox myRslt
End Sub