Составьте программу, выясняющую, есть ли в заданной строке Х заданное слово Y, и, если есть, то вывести слово, следующее в строке за этим словом

Option Explicit
Option Compare Text
 
Sub NextdoorToY()
    Const X = "h wet pp We RR," 'исследуемая строка
    Const Y = "WE"              'слово Y: текст без пробелов и только из букв!
    
If Len(Trim(X)) * Len(Trim(Y)) = 0 Then MsgBox "Слова, похоже, без букв!": Exit Sub
    
    Dim ndY As Long     'номер символа за словом Y (или его копиями: ndY - переменная)
    Dim wnY As String   'переменная для слова в строке X после слова Y (если такое есть)
    Dim n
    'InStr(X, Y) - начало строки Y в строке X
    'Mid(X, ndY) - "хвост" строки X после встретившейся в ней строки Y
ndY = 1
 
    Do
    ndY = InStr(ndY, X, Y) + Len(Y)
    Loop Until Not Mid(X, ndY, 1) Like "[A-zА-я]" 'когда после Y не буква
'wnY = Mid(X, ndY + 1) - часть строки X сразу после (первого из возможных) слова Y
    Do
    n = n + 1
    wnY = Mid(X, ndY + 1, n) 'n-символьная строка начиная с (ndY + 1)-го символа X
    If Not Right(wnY, 1) Like "[A-zА-я]" Then 'когда после Y не буква
        wnY = Left(wnY, Len(wnY) - 1)       'стираем эту «не букву»
        Exit Do                             'покидаем цикл
    End If
    Loop Until n = Len(X)
 
    If InStr(X, Y) Then MsgBox wnY Else MsgBox X & " не содержит " & Y
End Sub