我无法发表评论，所以....

I cant leave a comment so....

InStrRev呢?

what about InStrRev?

Private Sub this()
    Dim this As String
    this = "$80,000.50."
    this = Left(this, InStrRev(this, ".") - 1)
    Debug.Print ; this
End Sub