Удаление повторяющихся значений из массива - VB

Function PressArr(S() As String) As String()
Dim Res() As String
    n% = UBound(S, 1)
    ReDim Res(1 To n%) As String
    Res(1) = S(1)
    j% = 1
    For i% = 2 To n%
        tmp$ = S(i)
        k% = 0
        For l% = 1 To j%
            If tmp$ = Res(l%) Then
               k% = -1
               Exit For
            End If
        Next l%
        If k% = 0 Then
           j% = j% + 1
           Res(j%) = tmp$
        End If
     Next i%
     ReDim Preserve Res(1 To j%) As String
     PressArr = Res
End Function
 
Sub Test()
Dim Q(1 To 5) As String
Dim R()       As String
    Q(1) = "GGG"
    Q(2) = "kkk"
    Q(3) = "111"
    Q(4) = "GGG"
    Q(5) = "111"
    R = PressArr(Q)
    For i% = 1 To UBound(R, 1)
        Debug.Print R(i%)
    Next i%
End Sub