Дана фраза. Определить, имеются ли в ней симметричные пятибуквенные слова

Private Sub CommandButton1_Click()
S = InputBox("S-", "Ввод  фразы")
L = Len(S)
For i = 1 To L
S1 = Mid(S, i, 5)
If Mid(S1, 1, 1) = Mid(S1, 5, 1) Or Mid(S1, 2, 1) = Mid(S1, 4, 1) Then
MsgBox "Yes"
Else
MsgBox "No"
End If
Next
End Sub

Option Compare Text
 
Private Sub Test()
    Dim strText As String, varWd As Variant
    strText = "В лесу можно найти Шалаш и прочий мусор"
    For Each varWd In Split(strText)
        If Len(varWd) = 5 Then
           If varWd = StrReverse(varWd) Then
              MsgBox "В тексте найден палиндром"
              Exit Sub
           End If
        End If
    Next
    MsgBox "Увы ..."
End Sub

Private Sub CommandButton1_Click()
      Sent$ = InputBox("S-", "Ввод фразы", "ап оргро прлл имиь олл")
      wArr = Split(Sent$, " ")
      For i% = 0 To UBound(wArr, 1)
           w$ = CStr(wArr(i%))
           If Len(w$) = 5 And isSym(w$) Then MsgBox "Yes": Exit Sub
      Next i%
      MsgBox "No"
End Sub
Function isSym(w As String) As Boolean
    l% = Len(w)
    If (l% <= 1) Then
       isSym = True
    ElseIf Left$(w, 1) = Right$(w, 1) Then
       isSym = isSym(Mid$(w, 2, (l% - 2)))
    Else
       isSym = False
    End If
End Function

Private Sub CommandButton1_Click()
    S = Split(InputBox("S-", "Ввод фразы", "В лесу можно найти шалаш и прочий мусор"))
    For i = 0 To UBound(S)
      If Len(S(i)) = 5 And Mid(S(i), 1, 1) = Mid(S(i), 5, 1) And Mid(S(i), 2, 1) = Mid(S(i), 4, 1) Then MsgBox "Yes": Exit Sub
    Next
    MsgBox "No"
End Sub