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

Option Explicit
 
 
Private Sub Command1_Click()
Dim stroka As String, kol As Integer, Test
Dim MyObj As Object   'Создаем объект
 
If MyObj Is Nothing Then
  Set MyObj = CreateObject("vbscript.regexp")
  MyObj.Pattern = "([^abc]+?:ый|ая|ое)" 'шаблон
  MyObj.Global = True
End If
 
stroka = "мпаекдый ыйнеам трнаяирне Аяитрн ирпаое 1458 импая ипекв" 'исследуемая строка
Set Test = MyObj.execute(stroka)
kol = Test.Count
Print "прилагательных в единственном числе =  "; kol;
End Sub

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

MyObj.ignorecase = True
stroka = "аямпаекды ыйнеам трнаоеяирне Аяитрн ИРПАОЕ 1458 импая, ипекв мпаый" 'исследуемая строка
MyObj.Pattern = "(ый|ая|ое)[^А-ЯЁ]" 'шаблон
Set Test = MyObj.Execute(stroka & " ")

MyObj.Global = True
stroka = "аямпаекдый ыйны трнаоеяирное;  Аяитрн, ИРПАОЕ 1.459ая импый! ипекв мпое" 'исследуемая строка
MyObj.Pattern = "(ый.[^0-9а-я]|ый[0-9]|ый\s|ый$)|(ая.[^0-9а-я]|ая[0-9]|ая\s|ая$)|(ое.[^0-9а-я]|ое[0-9]|ое\s|ое$)"  'шаблон
Set Test = MyObj.Execute(stroka)

MyObj.Global = True