Задача в VBA

[AnnyJess]

Дана строка символов. Выяснить, есть ли в ней все буквы, входящие в слово "шина"?

[doober]

Public Function Шина(s As String)
    bRes = False
    Set RegExp = CreateObject("VBScript.RegExp")
    RegExp.Global = False
    RegExp.IgnoreCase = True
    RegExp.Pattern = "(шина)"
    bRes = RegExp.test(s)
    If bRes Then
        Шина = "YES"
    Else
       Шина= "NO"
    End If
End Function