I am trying to filter the contents of a listbox, how can I do that?

[CODE]Private Sub categorybx_Click()
If categorybx.Value = "Cable" Then
categorybx.AutoFilter Criteria1:="Cable"
If categorybx.Value = "Fiber" Then
categorybx.AutoFilter Criteria1:="Fiber"
If categorybx.Value = "Faceplate" Then
categorybx.AutoFilter Criteria1:="Faceplate"
If categorybx.Value = "Jack" Then
categorybx.AutoFilter Criteria1:="Jack"
If categorybx.Value = "Connector/Coupler" Then
categorybx.AutoFilter Criteria1:="Connector/Coupler"
If categorybx.Value = "Patch Cable" Then
categorybx.AutoFilter Criteria1:="Patch Cable"
If categorybx.Value = "Hardware" Then
categorybx.AutoFilter Criteria1:="Hardware"
If categorybx.Value = "Termination" Then
categorybx.AutoFilter Criteria1:="Termination"
If categorybx.Value = "Electronics" Then
categorybx.AutoFilter Criteria1:="Electronics"
End Sub[/CODE]