چون جناب behnam عزیز فرموده بودند که Khoobi باید اکسبت بشه نه Khobi بخاطر اونه که دوتا State برای O در نظر گرفتم.
این کار اشکالی نداره، اما یک کار اضافی هست.

راستی اگه امکان داره در مورد Regular Experssions تو محیط vb توضیح بدبد؟
بحث عبارات باقاعده که مفصله ولی برای مثال همین khobi و khoooooooobi رو توضیح میدم.

بعد از اینکه کتابخونه مذکور رو اضافه کردید، کد زیر رو بنویسید:

Dim objRegExp As RegExp
Dim collMatches As MatchCollection
Set objRegExp = New RegExp

objRegExp.Pattern = "kho*bi"
Set collMatches = objRegExp.Execute("khoooooooooooooobi")
MsgBox collMatches(0)
به همین سادگی به همین خوشمزگی!
Pattern ما اینجا kho*bi هست. علامت ستاره (*) یکی از کاراکترهای ویژه هست به معنی تکرار. یعنی کاراکتر قبلیش (حرف o) در صورت تکرار پذیرفته است.
رشته موردنظرتون رو برای تطبیق باید بدید به متود Execute. خروجیش روی یک مجموعه Set میشه که برای دسترسی به عناصر اون مجموعه باید از For Each استفاده کنید. اما چون اینجا یک تطبیق بیشتر نداریم، نیازی به For Each نیست و مستقیم Index شماره 0 رو نمایش میدیم.

به طور پیشفرض به حروف کوچک و بزرگ حساس هست. برای Insensitive کردن باید خاصیت IgnoreCase رو True کنید:
objRegExp.IgnoreCase = True
موفق باشید/