Подсчитать количество слов, слогов и букв в предложении

Dim strTemp, arrTemp, intTemp
strTemp = "Это предложение содержит двенадцать слов,  двадцать шесть слогов и семьдесят три буквы."
arrTemp = Split(Trim(strTemp), " ")
Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Global = True
objRegExp.IgnoreCase = True
objRegExp.Pattern = "[А-ЯЁ]"
For i = 0 To UBound(arrTemp)
    If objRegExp.Test(arrTemp(i)) Then intTemp = intTemp + 1
Next
MsgBox "Кол-во слов: " & intTemp
Set objMatches = objRegExp.Execute(strTemp)
MsgBox "Кол-во букв: " & objMatches.Count
objRegExp.Pattern = "[АЕЁИОУЫЭЮЯ]"
Set objMatches = objRegExp.Execute(strTemp)
MsgBox "Кол-во гласных букв (следовательно, и слогов): " & objMatches.Count
Set objMatches = Nothing
Set objRegExp = Nothing

Sub main()
    Dim txt$, m$, m0$, i&, k1&, k2&, k3&
    txt = "Это предложение содержит двенадцать слов,  двадцать шесть слогов и семьдесят три буквы."
    For i = 1 To Len(txt) + 1
        m0 = m
        m = Mid$(txt, i, 1)
        If m0 Like "[А-Яа-яЁё]" And Not m Like "[А-Яа-яЁё]" Then k1 = k1 + 1 'количество слов
        If UCase$(m) Like "[АЕЁИОУЫЭЮЯ]" Then k2 = k2 + 1 'количество слогов
        If m Like "[А-Яа-яЁё]" Then k3 = k3 + 1 'количество букв
    Next i
    MsgBox "Кол-во слов: " & k1 & vbLf & "Кол-во слогов: " & k2 & vbLf & "Кол-во букв: " & k3
End Sub