求助，百度上找的删除重复单词的代码，想要换成是从前往后删的代码

拾念v

求助，百度上找的删除重复单词的代码是从后往前删除的，想要换成是从前往后删重复的单词的代码QAQ
求大神帮忙改一下，
这个是代码：
Function MM(ByVal rg As Range)
Dim ary, st As String
ary = Split(rg)
Dim i As Integer
For i = 0 To UBound(ary)
    If Application.Match(ary(i), ary, 0) = i + 1 Then
        st = st & ary(i) & " "
    End If
Next
MM = st
End Function