Dim strValue As String
    Dim avarArray As Variant
    Dim intI As Integer
    
    strValue = "в полной мере, абсолютно, людьми, народом, " _
      & "над врагом, над недругом, приходится, нужно, заглаживать, " _
      & "исправлять, легко, без труда, убийство, преступление, " _
      & "аффекта, душевного волнения"
      
    avarArray = Split(strValue, ",")
    
    For intI = LBound(avarArray) To UBound(avarArray)
        Debug.Print LTrim(avarArray(intI))
    Next

    Dim strValue As String
    Dim strValue2 As String
    Dim avarArray As Variant
    Dim intI As Integer
    
    strValue = "в полной мере, абсолютно, людьми, народом, " _
      & "над врагом, над недругом, приходится, нужно, заглаживать, " _
      & "исправлять, легко, без труда, убийство, преступление, " _
      & "аффекта, душевного волнения"
      
    strValue2 = "Мне никогда не бывает в полной мере хорошо с людьми. " _
     & "Я смеюсь всякий раз над врагом раньше, чем ему приходится " _
     & "заглаживать свою вину передо мной. Но я мог бы легко совершить " _
     & "убийство в состоянии аффекта."
      
    avarArray = Split(strValue, ",")
    
    For intI = LBound(avarArray) To UBound(avarArray)
        Debug.Print LTrim(avarArray(intI)), _
          InStr(strValue2, LTrim(avarArray(intI)))
    Next