В предложение найти повторяющиеся слова - VB

Sub Task(Sent As String)
 
      Words = Split(Sent)
 
      n% = UBound(Words, 1)
 
      For i% = 0 To n% - 1
           For j% = i% + 1 To n%
               If StrComp(Words(i%), Words(j%), vbTextCompare) = 0 And Len(Words(i%)) <> 0 Then
                  If q% = 0 Then Me.List1.AddItem Words(i%)
                  q% = -1: Words(j%) = vbNullString
               End If
           Next j%
           q = 0
      Next i%
 
End Sub