Option Explicit

' как отделить окончание от корня
Sub RootSepatatorExample()
    Const SuffixesPattern As String = "(iest|ing|ier|y|e)$"
    
    Dim MyDictionary
    Dim RegExRootSeparator As Object
    Dim i As Long
    Dim Root As String
    
    MyDictionary = Array( _
        "coruscate", "сверкать", _
        "coruscating", "сверкать", _
        "effulge", "сверкать", _
        "effulging", "сверкать", _
        "artsier", "претендующий на художественность", _
        "artsiest", "претендующий на художественность", _
        "artsy", "претендующий на художественность", _
        "art", "искусство" _
    )

    'http://www.script-coding.com/WSH/RegExp.html    
    Set RegExRootSeparator = CreateObject("VBScript.RegExp")
    RegExRootSeparator.Pattern = SuffixesPattern
    
    For i = LBound(MyDictionary) To UBound(MyDictionary) Step 2
        Root = RegExRootSeparator.Replace(MyDictionary(i), "")
        
        Debug.Print _
            MyDictionary(i + 1) & ", " & _
            MyDictionary(i) & ", " & _
            Root & ", " & _
            Mid$(MyDictionary(i), Len(Root) + 1)
    Next i
    
    Erase MyDictionary
    Set RegExRootSeparator = Nothing
End Sub