Private Sub ParseIt()

    Dim strPhrase As String
    Dim objAllMywords As New Scripting.Dictionary

    
    strPhrase = "give me give me clue to this mystery"

    Set objAllMywords = AllMyWords(strPhrase)

End Sub

Private Function AllMyWords(ByVal pstrMyPhrase As String) As Scripting.Dictionary
    Dim strAllMyWords() As String
    Dim objDic As New Scripting.Dictionary
    Dim intWord As Integer
    

    strAllMyWords = Split(pstrMyPhrase, " ", , vbBinaryCompare)

    
    For intWord = LBound(strAllMyWords) To UBound(strAllMyWords)
        strAllMyWords(intWord) = Trim(strAllMyWords(intWord))

        If Not objDic.Exists(strAllMyWords(intWord)) Then
            If Not strAllMyWords(intWord) = vbNullString Then
                objDic.Add strAllMyWords(intWord), strAllMyWords(intWord)
                Debug.Print strAllMyWords(intWord)
            End If
        End If
    Next intWord
    

    Set AllMyWords = objDic

    
End Function