Отметил красным строку
a = QuickSearch(MyListBox, "asd")
Использую Office XP

Private Sub tbQuicSearch_Change()
Dim a As Long
a = QuickSearch(MyListBox, "asd")
End Sub

Private Function QuickSearch(lbListBox As ListBox, SrchItem As String) As Long
QuickSearch=1
End Function

передвызовом QuickSearch посмотрел на MyListBox говорит NULL
Че дальше делать. И непонятно вовсе почему он равен NULL я же его не динамически генерю. Он лежит у меня на форме есть пить не просит, а тут заявляет что NULL. Ну и что что NULL передал бы его в функцию а я этот бы случай корректно отработал, но он собака даже входить в функцию не хочет.
Как БЫТЬ? !!!!

Поставил перед вызовом этой функции
MsgBox(CStr(MyListBox.ListCount))
Сначала выводит 44 а потом генерирует ошибку.

*Как он тебе в таком случае говорит NULL если итемы на месте? как ты его смотрел?
Поставил на строке вызова этой функции брейкпоинт. Когда произошел останов подвел курсор мыши ко второму параметру - там все путем, подвел к первому - там NULL.

*попробуй в фунцию передать обьектом
А это как? Скорее всего это и надо сделать...
Этот параметр объявлял и как ByRef и как ByVal...
Функция выглядит так

Private Function QuickSearch(lbListBox As ListBox, SrchItem As String) As Long
MsgBox(CStr(lbListBox.ListCount))
QuickSearch=1
End Function