كيف نعمل بحث على نص في الفورم

السلام عليكم

هذا الكود يبحث في كل Label الموجودة في الفورم على كلمة test.

Dim obj As Object
For Each obj In Me.Controls
 If TypeOf obj Is Label Then
   If InStr(1, obj.Caption, "test") Then
       MsgBox "كلمة موجودة"
   End If
 End If
Next