Дана фраза. Выяснить, сколько в ней прилагательных в единственном числе, т.е слов, оканчивающихся на <-ый>, <- - VB

Option Explicit
Private Sub Command1_Click()
Dim stroka As String, Test
Dim MyObj As Object   'Создаем объект
Set MyObj = CreateObject("VBScript.RegExp")
MyObj.Global = True
stroka = "аямпаекды ыйнеам трнаоеяирне Аяитрн ирпаое 1458 импая ипекв мпаый" 'исследуемая строка
MyObj.Pattern = "ый\s|ый$|ая\s|ая$|ое\s|ое\$" 'шаблон
Set Test = MyObj.Execute(stroka)
Print "прилагательных в единственном числе =  "; Test.Count;
End Sub