Newbie: Problem accessing Listbox selection

[Zach Williams]

I have a listbox (Lst1stStatus) for my tblStatus table. I make a
selection by clicking the arrow button on the listbox and then click a
Filter button. In the Filter Click event, I have the following code
which never produces a selection:

Dim varIndex As Variant
Dim strStatus As String
Dim lstStatus As String

For Each varIndex In Me.Lst1stStatus.ItemsSelected
lstStatus = Me.Lst1stStatus.ItemData(varIndex)
Next varIndex


For the listbox,
ControlSource = =tblStatus!Status
RowSourceType = Table/Query
RowSource = tblStatus

Any ideas?