Type mismatch, run-time error 13 в Экселе, а в Ворде нет??? - VB

Формулировка задачи:

На форме лежит листбокс и кнопка
имеем процедуру
Private Sub CommandButton1_Click()
Dim lb As ListBox
Set lb = ListBox1
MsgBox (lb.ListCount)
End Sub
В Ворде работает ав Экселе НЕТ! После вылета ошибки Type mismatch 13
жму Дебаг и подводя мышой к
Set lb = ListBox1
Над ListBox1 высвечивается Null
Чего не так? Проверил Referenses в Экселе есть все те которыеесть в Ворде и даже больше...
Как решить эту проблему? У меня Office XP

Решение задачи: «Type mismatch, run-time error 13 в Экселе, а в Ворде нет???»

textual
                            Листинг программы 
                        
                            MsgBox (lb.ListCount)
<br>