求助大神帮忙做一下歌曲分词和词频统计

[Marcela 张]

求助大神帮忙做一下歌曲分词和词频的统计。
具体格式参考图片中的第一条《天使的翅膀》后新增字段分词和分词频次。基本就是这个样子
感觉应该可以使用某个程序泡跑一下，但是我不会写程序啊

所以请求各位大神路过写个程序帮一下忙。非常感谢！！！！！

[易登软件Access开发]

分词用“|”竖线隔开，例：你|美丽|

Public Function WordFrequency(ByVal Lyric As String, ByVal Word As String) As String
    Dim arr As Variant
    Dim brr As Variant
    Dim i As Long
    Dim countChar As Long
    
    If Lyric = "" Or Word = "" Then Exit Function
    If InStrRev(Word, "|") = 0 Then Exit Function
    arr = Split(Word, "|")
    For i = 0 To UBound(arr) - 1
        brr = Split(Lyric, arr(i))
        countChar = UBound(brr) - LBound(brr)
        WordFrequency = WordFrequency & "“" & arr(i) & "”" & "出现次数：" & countChar & vbCrLf
    Next i

End Function